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DISCLAIMER: (No material on computers seems to be complete without one of these, so here it is). 

In essence, we assume NO responsibility. 

If your system blows up in your face, it’s not our fault. 

If you see “floppies” in your sleep, it’s not our fault. 

If you go crazy, it’s not our fault. 

Every attempt was made to correct typos, (usually due to hieroglyphics) that would cause “technical difficulties.” 
We wish we could guarantee perfection in this area but since we’re human, we can’t. We hope you’ll forgive us 
for thoooose English typos that were allowed to slide by. 


Please, feel free to write us regarding errata, suggestions and comments. 


COPYRIGHT — 1984, ByCON-COR INTERNATIONAL and NANCY L. WILMOT 

All rights reserved. Neither text nor software may be duplicated by any means with¬ 
out written permission. The original purchaser is granted permission to make 
backup copies of the disk and copy forms from the text as designated for personal 
use only, not for distribution. 


CON-COR INTERNATIONAL 
1025 Industrial Drive 
Bensenville, Illinois 60106-1297 
Attention: Nancy L. Wilmot 
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0010 — 0013 


0010 Welcome: 


Allow me to welcome you to the wonderful world of the Commodore® disk drive. Whether you are interested 
in programming or simply want to be comfortable operating your system, I think I can help you. 


0011 Confessions 


lam neither a computer expert nora professional technical writer. I am a teacher of mathematics (boo! hiss!) 
by profession and a cronic text rewriter. When my students didn’t get along with assigned text, I simply wrote 
my own. One of them is still in use as the main text in “Advanced Algebra” and of course is being revised con¬ 
stantly. 


My computer“expertise” goes back to a FORTRAN course in 1965. At the time, I didn’t like the key punch mach¬ 
ine, (remember those cards with the holes that you couldn’t bend, fold, staple or mutilate?). High school teach¬ 
ing was much quieter than the list printers, card sorters and so forth. 


About four years ago, I met a TRS-80®, Model I™ names “Snuffles” and fell in love. Hours passed unnoticed 
while Snuffles kept saying SYNTAX ERROR. Each fall “Snuffles” had to go back to school and I had no time 
to play. Soon I got my hands on a faithful VIC-20™ with Datasette. That’s when the fun started. Files on cassette 
are terribly awkward. I gave up files for a while but in the back of my mind I kept thinking that computers should 
store information. Time for an upgrade. 


Peter, (my faithful C-64™), arrived and we got along fine. Two months later came Flopsey, a 1541 Disk Drive. 
I carefully followed the set up direction and powered on in the specified order. After a few minutes Peter had 
a nervous breakdown. Fortunately the warrantee was still in effect. Peter II and Flopsey got along fine. I felt 
a little left out. 


The manual had me convinced that I was the dumbest person around until I figured out once and for all that 
when, on page 8, they said “green,” they really meant “red.” 


To make a long story short, the last 11 months have been spent figuring out how to get Flopsey to do her stuff. 
She nearly died from the strain and from not having her heads cleaned. 


This book is an outgrowth of that experience. I hope it will spare you the hours of frustration that I spent learn¬ 
ing things the hard way. 


0012 PROMISES. 


You have my word that: 

All the programs have been thoroughly tested. 

I’ll tell you if I’m not sure if (or why) something works the way it does. My favorite “weasel” words are “specu¬ 
late,” “assume,” but most often “think” and “fear.” 


You have updated information as of January 21,1984. Beyond that I cannot promise. I keep learning and so 
will you. 


0013 I cannot guarantee that there are no proofreading errors. We tried very hard not to let them slip by. Let me apolo¬ 
gize in advance if any cause you trouble. 
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0020 — 0030 


0020 What You Need 

0021 “The System” 


C-64™^ Computer Standard System: 

1541™ Disk Drive All descriptions in thistext refertothis“system.” 

TV or Monitor 


SX-C64™ 


C-64™ Computer 
MSD-SD1™ Disk Drive 
TV or Monitor 


The Portable System: 

If you are using the SX-C64™, ignore all remarks pertaining to a 
“green” light (0130). Your drive power is ON when your system is 
Powered Up. Set up, power on, power off sections should be re¬ 
placed by your manual. 

Compatible Single Drive System: 

Refer to your manual for set up, disk insertion and removal. This 
drive is a bit noisier, not as pretty, a lot faster than the 1541, but is 
otherwise the “same.” 


C-64™ Computer 
MSD-SD2™ Dual Disk Drive 
TV or Monitor 


Compatible Dual Drive System: 

If you are so fortunate as to be using this drive, you’ll have to do a 
little more work. (See Appendix). 


0022 Supplies: 

At least one blank disk 
A bookmark 

0023 “Friendly Floppy” 

Disk included with text. 

0024 A printer (Optional) 


Descriptions refer to a 1525 but you should be able to use just about any printer (with suitable interface). 
Set up procedures may vary. All print routines are very simple. If your printer can print text, (numbers and 
letters), it should work If you have graphics capabilities, enjoy them, but you won’t need them here. 


0030 Assumptions about the reader 

1) You are probably not a computer engineer. 

2) You are probably not a professional programmer. 

3) Your disk drive skill fits into one of these categories: 

a) Maiden - Never touched one 

b) Novice - Can load programs given directions but not comfortable with much else. You may have 

used software that address the drive (like a word processor that saves documents). 

c) Intermediate - Can perform elementary operations (load, save, format a disk) but your drive is still 

functioning like a high speed tape recorder. 

d) Advanced - Able to write programs for the system that involve all three types of data files. (This text 

will make a good gift for a friend.) 

e) Convert - Any of the levels above but with a different system. 

4) You want to improve youhskill level and decrease your frustration level. 
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0040 — 0052 


0040 Text Objectives: 

1) Acquaint all users with background information regarding disks and disk drives with special attention to 
the 1541. 

2) Aid maiden and novice users with physically operating their systems. 

3) Aid maiden and novice users to master the elementary procedures of loading programs, saving programs 
and “formatting” brand new disks. 

4) Enable all users to deal with the usual “error” conditions. 

5) Provide a thorough explanation of command sending procedures. 

6) Familiarize users with DOS 2.6 commands and those available with the supporting DOS 5.1, the «wedge». 

7) Provide users, familiarwith BASIC, sufficient exampiesandexplanationstoenablethemtowritetheirown 
programs using all types of data files. 

8) Provide experiences with data file usage for users who do not wish to program. 

0045 This text does not: 

1) Intend to teach BASIC programming (procedures for disk drive operations within programs are explained 
in detail). 

2) Address using multiple drives. (If you have two drives, you’ll be able to adapt). 

3) Address programming the disk controller. 

4) Delve into machine language routines. 

0050 About the text 

0051 The first page of every chapter contains its’ own “table of contents” by sub section. 

0052 “Line Numbers” 

You are now reading line 0052. This is not a sequential text. Users can choose different paths to reach the 
same goal. The four digit line numbers are used tofacilitate cross referencing. Like lines in a program, not all 
are used. There is no line 0049 in this text. Unlike lines in a program, a single “line” can be a page or two in 
length. 


Chapter 

Sub Section 
Section i 

I i I 

12 3 4 



Line 


(1000) refers to an entire chapter. 

(1100) refers to an entire section 
(1110) refers to an entire sub section 
(1111) refers to a specific line 


At the top of each page you’ll find the range of line numbers on that page. 


I suggest you checkout each line reference unless you already know its contents. These have been check¬ 
ed but if a reference does not seem to make sense, interchange the middle digits, i.e. Instead of 1234, try 
1324. If that fails, please accept my apologies. If a reference contains only 3 digits, assume it applies to this 
chapter, 0000. 
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0053 — 0057 


0053 Typing: 


U nless otherwise specified, you are to type exactly what is shown, check for accuracy, and then hit the RE¬ 
TURN key. Substitutions will be noted. If you are not to hit RETURN immediately, that too will be noted. In some 
cases an extra space can cause command failure. Once you know what should happen when a command is 
reproduced exactly, feel free to experiment. 


Note: For example purposes only. 


Type: E:::„ ii-S II ih«::!i if -i Hi j.J Type exactly what has been “printed by the dot 

matrix printer.” 


Type: NORMAL. 3 I 2E By a dot matrix printer. 


0054 CAUTIONS and WARNINGS 


kJ^Aa y! 
Ao tonify 7 

y. You’ll be warned of dangers to hardware 
nsequences are usually described. 



0055 


“Clouds” 


r 

c 


Some contain useful bits of information, or suggestions 
and hints. Others contain silly remarks. Read the foot notes, too/ 




VV-x. w aLj 


0056 BOXES contain general formats. 

| REQUIRED EXACTLY variable | 


BOLD type - all symbols, including punctuation, 
are required. Italics type-variablesand parameters. 


0057 


“printer print” labels show specific examples and titles. 


2 - Foot notes are kind of like clouds. You can never tell when they are really important. That’s life. 
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0058 — 0064 


0058 Presentation Level 


In general, the presentation level varies with the task at hand and the assumed audience. I n the early chap¬ 
ters on elementary procedures, I’ve used a “hand holding” approach. Please don’t feel that I’m insulting your 
intelligence. (If I had a nickel for every hour I’ve spent overlooking the ‘obvious’...) In the later chapters on 
data files the level changes. By the time you get to those sections, you won’t need to have your hand held. Re¬ 
view references are often given if you need them. Somer ections or sub-sections are primarily for reference. 
If all the references were in the appendices where they really belong, we’d have 20% text and 80% appendices 


0059 PIDGIN BASIC 


A form of “pidgin-BASIC” is used in the eariy chapters. It is supposed to provide details for the beginners while 
allowing the more advanced to safely skip sections. If you’ve had some programming experience you’ll fol¬ 
low right along and possibly become ill at the liberties taken. Read the following definitions anyway. If you 
have never programmed, don’t worry. 


“GOTO” Simply means go to the line specified and read on from there. Skip all the stuff in between. It 
works just like a GOTO statement in BASIC. 


“GOSUB” Means go to the line specified but come back when you are finished, (hence the need for a book 

mark). Your computer gets a RETURN statement to tell it when to go back Wim this text, I fear 
you’il have to figure that out for yourself. 


“REM” is computer talk for a remark or comment. Your computer ignores all the stuff after the word 

REM. You are not a computer so do read the remarks. They often contain tidbits about the sec¬ 
tion. (if you are a computer that’s reading this, call me RIP VAN WINKLE). 


0060 Where to start? 


Rem: Find the category that best fits your status. Read that line to answer the question. 


0061 Maiden Users: Please do not be put off by all the specification in the rest of this chapter. You do not need to 
master all of that to use your disk drive. Skim (0100) and (0200), but pay very close attention to those on care 
and maintenance. (0110) and (0290). Sections (0300) - (0700) will explain how to physically operate your sys¬ 
tem. Those, together with your user’s manuals, should get you safely up and running. Go right on to the LOAD 
chapter(1000). When you’ve loaded yourfirst program (1220), pat yourself on the head and graduate tothe 
novice status. 


0062 Novice Users: Use the first two sections (0100) and (0200) as described above (0061). Check out the rest 
of the chapter. You may want to adjust some of your operating techniques. The section on inserting disks, 
(0500), is not as trivial as it sounds. You can probably skip to(1230) in the load chapter(1000), but a quick glance 
wouldn’t hurt. Go right on and master the other elementary procedures. When you’ve completed (2000) and 
(3000) you’re an intermediate. 


0063 Intermediate Users: You are particularly difficult to direct. My best advice is to examine the next section on 
chapter notes, (0070), along with the individual chapter directories. Be sure to check out the maintenance sec¬ 
tions, (0110) and (0290). 


If you are not in the habit of using your «wedge», do so. In file work and program developement, you’ll find it a 
real time and frustration saver. If you are at all lazy, you’ll love it. 


The format chapter (2000) not only explains formatting a disk which you already know, but also provides a 
background in command sending procedures, it’s more than just a “how to.” 


0064 Advanced Users: Examine the contents to make sure they are suitable. Run a few programs for the heckuvit 
and please check out (6400). Maybe you can help. Don’t forget to gift wrap before you spill something on it. 
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0065 — 0072 


0065 Converts: Welcome. There are some command sum maries in the appendix, at the end of early chapters and 
in the first section of each of the data file chapters. Find your level above and enjoy. 

0070 Chapter Notes: 

Rem: Sorry that these aren’t right with the chapter. This section is one of my “after thoughts.” If I rip this text 
apart one more time,the publishers will have heart failure. 

0071 (0000) Introduction 

(Please read proceeding sub sections if you haven’t already done so.). 

(0100) The Drive: 

(0110) on maintenance is a must for all users. Other sections are background and for later 
reference. 

(0200) DISKS 

(0290) on care is a must for all users. Other sections are background and for later reference. I do not 
guarantee the contents of (0270). 

(0300) - (0700) Physical Operations 

Primarily intended for beginners. 

0072 ELEMENTARY PROCEDURES 

(1000) LOAD 

(1100) Preliminaries - primarily for beginners. 

(1200) Procedures - primarily for beginners but all users should deal with the «wedge»(1230-1250) 
(1300) Slick Tricks - some fun but can safely be postponed. 

(1400) General Formats - may be sufficient for converts. Good for beginners learning to read manuals. 
(2000) “Format” 

(2100) Preliminaries - good background for all users. 

(2200) Procedures - (2210) is sufficient to get the job done. (2220) and (2230) for the curious and/or 
lazy. 

(2300) Analysis and Experiements- may beomited by casual users. (2310) and (2320) are for serious 
users. (2330) and (2340) are for the serious users and may be safely used by anyone. 

(2400) General Formats - as above. 

(3000) SAVE 

(3100) Preliminaries - good background for all users. 

(3200) Procedures—Strictly “how to” 

(3300) Related Operations—all users should cover this section. 

(3400) General format-simiiarto other general format sections. Please note recommended formats. 
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0073 — 0074 


0073 MISCELLANEOUS 

(4000) OTHER COMMANDS - primarily a reference section. Not a recommended starting place for beginners 
(9000) FLASHING RED LIGHT - a must for ALL users. 


0074 DATA FILES 

(5000) DATA FILES in GENERAL 

(5100) Types of files - good background for all users. 

(5200) Common Procedures - programmers or potential programmers only. 

(5300) Commands - programmers or potential programmers only. 

(5400) File Data Format - a must for all but the simpliest file management programs. 

(6000) SEQUENTIAL FILES 

(6100) Preliminaries - primarily for programmers. 

(6200) Sample Program - casual users can benefit from the sample program to some extent. 

(6300) “COMMAND DEMO” - casual users can benefit from running the program. This section is of 
special interest to programmers. The programming techniques are much different than those 
used in the “learning programs” in other sections. 

(6400) “A Can of Worms” - may best be saved for last. This section is perfectly safe for your system and 
disks, but could be hazardous to your mental health. 

(7000) RELATIVE FILES 

(7100) REL FILES in GENERAL - primarily a reference section for programmers. 

(7200) “GEN REL” - sample program. Should appeal to all but the most casual user. Not a good start¬ 
ing point for beginners. 

(7300) “GEN-REL” - Detailed explanation for programmers only. 

(7400) “GEN-REL” Complete Listing - merely a convenience. 


(8000) RANDOM FILES 


The chapter follows the same pattern as the RELATIVE FILE chapter. It is not nearly as “Tight” as the 
two chapters that preceed it. To be honest, I haven’t fooled with RANDOM FILES all that much. Sequen- 
tialand Relativefiles have doneanadmirablejobof handling myGrade BookandTax Records. Maybe 
you’ll see a need for them and pursue the subject in greater depth on your own. 
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0075 — 0081 


0075 APPENDICES 

(10000) APPENDIX DIRECTORY 

(1 0100) Procedure checklists — not for beginners. May wish to transfer to file cards. 

(10200) Command Summary (DOS 2.6) — a reference preferred command formats only. «Wedge» 
Command Summary — especially useful for Intermediate users who may still think that the 
wedge doesn’t do much. 

(10300) Dual Drive Patches 

(1 0400) Forms a batch of forms for record keeping. A few may help come tax time. Others may help 
you get organized before things get out-of-hand. 

(10500) ID Code-check list to prevent duplication of disk ID codes. Start using this list as soon as 
you lean load a directory and find the ID code in it. 

(1 0600) Printer Program Listings — for reference. A study of these will show how easily the printer 
can be integrated into your programs. 

(10700) Symbol list — for reference. If you are/were confused this will showyou oneof the reasons 
why you are/were. 

(10800) Bibliography 

(10900) Index 

0080 “Friendly Floppy” 

Rem: The programs and some sample files are included on this disk. The numbers refer to text lines tocome 

0081 Suggestions: 

1) Make a back up copy as soon as you are able (3320). DO NOT use the ID code, NW. (0260) 

2) Cover the write protect notch (0221) 

3) Use your practice disk for all write operations. (3000), (6000), (7000) and (8000). 

4) Do NOT format 2 “Friendly Floppy” (2000) and (0250). 

5) Read the Sections on Care of Floppy Disk (0290) and Care of the Drive (0110). 


2 - If you know what I meant by that I didn’t have to say it. If you didn’t, don’t worry. It’s one of the things you’ll learn. 
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0082 — 0090 


0082 Directory 


When you learn to “view the directory,” (1210) and (1250), this is what you’ll see. The meaning of the direct¬ 
ory of disks in general is in (0260), (0270) and explored in (6400). 





"PROGRAM NAME" 

PRG 

1 

"OPEN EXP" 

PRG 

i 

"ERROR READ" 

PRG 

4 

"1ST SEQ FILE PGM" 

PRG 

4 

"SEQ FILE # PGM" 

PRG 

5 

"SEQ FILE PRINT" 

PRG 

17 

"GEN REL" 

PRG 

20 

"GEN REL PRINT" 

PRG 

6 

"RANDOM FILES" 

PRG 

6 

"RANDOM PRINT" 

PRG 

15 

"COMMAND DEMO" 

PRG 

5 

"EXP$—PRINT" 

PRG 

4 

"GR SAMPLE" 

REL 

1 

"TEST 1" 

SEQ 

1 

"RND SAMPLE" 

SEQ 

545 

BLOCKS FREE. 




0090 Program Notes 


“PROGRAM NAME” for use with the LOAD chapter (1000) safe for all users, good for beginners. 

“OPEN EXP” for use with (2331). Safe for all users, of interest to the curious. 

“ERROR READ” for use with (9230). Safe for all users, a sample to use in your own programs. 

“1ST SEQ FILE PGM” for use with (6200). Careless use can damage sample files and possibly result in un¬ 
wanted scratches. Basicallya“learning experience,” of interestto programmers just 
starting on data files. 

“SEQ FILE # PGM” for use with (6260). Of interestto programmers, basically a “learning experience.” Care¬ 
less use can damage sample files and possibly result in unwanted scratches. 

“SEQ FILE PRINT” requires printer. Can be substituted for“1 st SEQ FILE PGM”. Other remarks as above. 

“GEN REL” for use with (72Q0) and (7300). CAreless use can damage sample files. Can be adapted for per¬ 
sonal use with minimal knowledge of programming. Suitable 2nd experience with file 
programming. 

“GEN REL PRINT’ requires printer. Can be substituted for “GEN REL.” Other remarks as above. 

“RANDOM FILES” for use with (8000). An introduction to random file programming, show combinations of 
file types, of no use other than a minimal sample program. Read (61 50) before using. 

“RANDOM PRINT” requires printer. Can be substituted for “RANDOM FILES.” Other remarks as above. 


“COMMAND DEMO” for use with (6300). Of special interest to the programmer just starting on files. A little 
slicker than its predecessors, safeforall users. Careless use will place some test files 
in the directory and foul up further runs until those files are removed. 

“EXP$-PRINT” for use with (6400). Printer optional. With minor adjustments, it can be used without a printer. 

Of interest to the very curious, not a good starting place for beginners, but safe. 

“GR-SAMPLE” is NOT a program. Sample file for use with “GEN REL.” 

“TEST 1 ” is NOT a program. Sample file for use with “1 st SEQ FILE PGM” 

“RND SAMPLE” is NOT a program, sequential file for use with “RAN DOM FILES”. Key to the random file hid¬ 
ing on the disk- 
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0100 — 0116 


0100 THE DRIVE 


Your Commodore 1 1541 ™ DISK DRIVE is a precision machine controlled by its own on board “computer” and 
your C-64 “ or VIC-20™. Workings as a team, your computer and drive can store and retrieve vast amounts of 
data quickly and accurately. 


The machinery spins the disk at a high rate ( 300 RPM) while moving the read-write head across the 

disk. It has to be able to pinpoint any one of 683 blocks on the disk. 


The circuitry tells the machinery where to go, keeps trackof where it is, lets it know what to do, and even does 
some checking to see if the task has been completed correctly. 


Each 1 541 ™ comes with 16K ROM and even 2K RAM. It has not only a diskcontrollerforthe machinery but 
also a complete Disk Operating System (DOS 2 ). The DOS allows you to communicate with the drive via your 
computer, it contains all the commands you need to do everything from loading a program to creating use¬ 
ful data files. 


0101 Your drive contains CBM® DOS 2.6 which alone is sufficient to operate your drive. It can read disks prepar¬ 
ed on some other Commodore® drives and can both read and write onto disks from a 4040™ dual drive. (0020) 
for other compatible drives. 


0102 You r system cannot use disk prepared on "Brand X” systems for reasons that will become clear in the follow¬ 
ing section on disks (0200), and in the chapter devoted to formatting disks. (2000) 


0103 Included with your drive is a test-demo disk that contains DOS 5.1. It not only saves typing in many of the com¬ 

mands but it also gives very easy access to some useful processes. The phrase “ACTIVATE your WEDGE” 
occurs throught this text. 


0110 CARE of THE DRIVE 


0111 Move the drive around as infrequently as possible. When transport is necessary, pack it very carefully. The 
original container is best unless you’ve invested in a special carrying case. 


0112 Maintain aclean working environment. Avoid smoking nearyourdrive if atall possible. If you mustsmoke, 
invest in an air filter or smoke eating ashtray. 


0113 Cover the drive when NOT in use. 


011 4 PROTECT FROM OVERHEATING 


Do NOT cover vents when power is on. This could cause overheating. If it is very warm in yourcomputer“room,” 
you may wish to set your drive up on a wooden block so the bottom vent is more accessable. Some of the furn¬ 
iture for computers have vented sheles for the drive. Avoid those that enclose the drive when the power is on. 


011 5 Clean heads about once a week. (More often if heavy use or dusty environment). Head cleaning kits are 
available at your dealer. Do NOT open up and vaccuum inside. 


0116 If the outer case needs cleaning, do NOT use a spray cleaner in such a way that moisture could get into the 
drive. 


2 - “DOS” is pronounced as one word that rhymes with "moss.” 

® - 1 541,4040, C-64, VIC-20 and CBM are Registered Trade Marks of Commodore Business Machines 
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0117 — 0120 


0117 Although it is best to avoid eating and/or drinking in your computer room, if you must, at least keep beverages 
away from the hardware. The top of the drive is NOT a good place for your coffee cup. 

0118 If your drive does malfunction, have it serviced by properly trained people. See your dealer. 


0119 Do NOT place disk on drive (0290). 



01 20 ANATOMY of THE DRIVE 


r 



Z commodore-— “| 

541 

H 


FRONT 



t RE 


RED LIGHT (STATE INDICATOR) 
GREEN LIGHT (POWER INDICATOR) 




TWO SERIAL BUS PORTS 


BACK 




WRITE YOUR DRIVE’S SERIAL NUMBER HERE. 
(Now—before the thief leaves) 
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0120 — 0130 


0120 (Cont’d) 





C DO COVER WHEN NOT IN USE 


0130 The DRIVE “COMMUNICATORS” 2 


In addition to using the DOS to communicate with the computer, your drive will ‘‘communicate” directly to 
you via light and noises. 


The GREEN UGHT is the power indicator. It is always on when the drive is on. (i.e. plugged in and turned on). 


The RED LIGHT has a larger vocabulary. It can be OFF, ON-SOLID, or FLASHING 


It is perfectly normal for your drive to make noise. A fairly loud “chatter” can be heard as the head moves in 
search of a track. It “purrs” as it reads and writes. It “whirrs” while it is getting ready to do something. If you’ve 
got good ears (or put your ear to the drive) you can detect a “quiet humm” whenever the power is on. If you 
can’t hear it, you can feel it when you put your hand on a “quiet” drive. 


WHIRR 



2 - If your lights do not function as described above, you have a problem. (Occasional flickers excepted). Return to dealer. 
These lights are important. 

If your drive sounds like a printer for more than a few seconds, return to dealer. 
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0140 — 0150 


0140 DRIVE “STATES” 2 


0141 


0142 


0143 


0144 


0145 


0146 


0147 


lf your drive sounds like a printer for more than a few seconds, return to dealer. 



TWO DAISY CHAINED SINGLE DRIVES. 
(Note - that’s DEVICE#, not drive#) 


STATE 

of 

DRIVE 

GREEN 

LIGHT 

RED 

LIGHT 

“VOICE” 

OFF 

OFF 

OFF 

SILENT 

WAITING for 
COMPUTER 

ON 

ON - SOLID 

“Whirr"’ 

READY 

ON 

OFF 

QUIET 

WORKING 

ON 

ON-SOLID 
(Some flicker) 

| NOISEY 

ERROR 

CONDITION 

ON 

FLASHING 

QUIET 

FILE WORK IN 
PROGRESS 

ON 

ON-SOLID 

QUIET 

SEARCHING 

FOR 

TRACK 

ON 

ON-SOLID 
(May flicker) 

CHATTER 



When the 
drive is 
READY 
it is safe 
to insert 
or remove 
a disk 

> (0500 & 0600) 
Other times 
may be 

^ hazardous 
to the health 
of software 
and/or 

t hardware. 




2 - If your lights do not function as described above, you have a problem. (Occasional flickers excepted). Return to deal¬ 
er. These lights are important. 
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0160 


DEVICE NUMBER 


When you unpack a new 1541 ™ it is by nature DEVICE #8. It will be #8 until this number is changed via soft¬ 
ware or by physically altering the hardware. 


You need not worry about these procedures until you are ready to operate more than one drive. It is best to 
learn to handle one before you get a second. (If you already bought the second one, leave it in the box until 
you can drive one drive.). 


Each peripheral device has its own number. 


0 KEYBOARD 

1 CASSETTE 

2 RS-232/MODEM 

3 SCREEN 

4 PRINTER (select switch) 

5 PRINTER (select switch) 

6 PRINTER (not for 1 525 ; 

7 PRINTER (not for 1525"') 


| 8 DISKDRIVE-unaltered j 
9 ) 

10 1 other DISK DRIVES 

11 1 


0200 DISKS 


When the words DISK or FLOPPY or DISKETTE are used in this text, each referes to the “single-sided, sin¬ 
gle density, soft sectored, 5V4” mini-floppy diskette” (whew!) used by your 1541 ™. These terms are explained 
in (0280), OTHER KINDS. 


0210 ANATOMY - GENERAL PARTS 




JACKET DISK ITSELF FLOPPY DISK 

(Actual Picture 2 ) 


0211 ENVELOPE 


The purpose of the envelope is to protect the disk from dust and abrasion. Do NOT 
discard. 


0212 JACKET The jacket enables you to work with a floppy disk. The inner surface is extremely 

smooth to allow the disk inside to spin at a high rate without being ripped to shreads. 
Do NOT attempt to open. 


0213 DISK ITSELF The disk itself is a very thin mylar film coated with a magnetic substance. You can 

seeitthroughtheovalcutoutinthejacket. DoNOTtouch! DoNOTremovefrom its’ 
jacket. 3 


0214 FLOPPY DISK 2 Floppy is a creature that inhabits the pages of this text and takes over when things 

get a little dry. 


2 - The picture was sketched during an actual FLOPPY sighting that occured on the 5th Tuesday of February, 1983. Do 

you remember the unscheduled full moon that night? 

3 - Removal of a FLOPPY from its jacket is tantemount to murder. It is like exposing a vampire to sun light. If you have an 

uncontrollable urge to disect a FLOPPY, try to find a dead one. DO NOT disect expensive software unless you re 
made of money. Further information is provided.to prevent unnecessary FLOPPY-cides. 





I 


0220 — 0231 

0220 ANATOMY - EXTERNAL 



This is the WRITE PROTECT NOTCH. When covered 
by tape, (usually supplied by the disk manufacturer), 
a photoelectric device inside the drive tells it not to 
write on the disk It’s not real smart to substitute sticky 
adhesive tape. Seriously, it is a good idea to protect 
important software from human error. These are 
usually supplied when you buy a box of disks. 


0222 The oval cutout is the READ-WRITE HEAD SLOT. It is through this oval that the drive’s HEAD actually con¬ 
tacts the floppy to store or read information. DO NOT TOUCH (even with clean hands). DO protect from 
abrasion by keeping floppy in the envelope whenever it is not in the drive. Keep all disks not in use in a vertical 
file. Keep this file some distance from the hardware or any other source of eiectro-magnetic fields. 


0223 The small round hole is the INDEX HOLE. A photo electric device inside the drive “looks” for the hole as a 
point of reference when looking for a particular sector. If you very carefully rotate the disk in the jacket you 
will find a hole in the disk itself. (If you find a whole bunch of holes, you’ve got a ‘hard sectored disk’ Take it 
back before attempting to use. It’s not the right kind for this system. (See 0283). 


0224 The big round hole is the CENTER HOLE or HUB. You guessed it. It’s just like the hole in a phonograph re¬ 
cord. 


0225 The LABEL is just that. Establish a short code usuaiiy the ID code 2 of the disk Use only a felt tipped pen to 
write on this label. Pressure here can damage the floppy and the data it contains. 


0226 The OPTIONAL LABEL can contain any information you want. Either pre-write (before you put it on the jacket) 

or use only a flet tipped pen and a very light touch. 


0230 ANATOMY - INTERNAL 


0231 TRACKS are concentric circles on which information is stored magnetically. These tracks are kind of like the 
“grooves” on a phonograph record. Standard single density 5V4” diskettes have 40 tracks jof which our sys¬ 
tem uses 35. A phonograph record has only one groove that spirals inward, (okay, okay. Two—one on each 
side). 


2 - For further explanation see: FORMAT (2000) and DIRECTORY ASSISTANCE (0260). 
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0231 —0234 


0231 (Cont’d) 


A SINGLE SECTOR 




PHONOGRAPH 

RECORD 

GROOVE 


TRACKS 
ON A 

FLOPPY DISK 



SINGLE TRACK 
WITH 

20 SECTORS 


0232 A SECTOR is a small portion of a track Our system puts more sectors on the outer track than it does on the 
inner ones. It’s a little confusing but it lets our single density disk store almost as much information as some 
duai density systems. Different systems use different formats. Each system has to “format” a blank disk for 
its own use. 2 


0233 TRACK-SECTOR TABLE 3 for 1541* 


NUMBER 

OF 

TRACKS 

INDIVIDUAL 

TRACK 

NUMBER 

NUM- * 

SECTORS ON 
EACH TRACK 

INDIVIDUAL 

SECTOR 

NUMBER 

17 

1,2,..., 17 

21 

0 , 1 ,. 

., 20 

7 

18,19.24 

19 j 

0 , 1 ,. 

.,18 

6 

25, 26.30 

18 | 

0 , 1 ,. 

., 17 

5 

31,32.35 

| 17 j 

0 , 1 ,. 

..,16 



0234 BLOCK 


A BLOCK is sort of a generic term for a sector. (Wonderful—two words for the same thing). To refer to a part¬ 
icular block on the disk we need to specify both a track number and a sector number. Fortunately, unless we 
are dealing with RANDOM files, the DOS does all the bookkeeping for us. 


ex. TRACK 20, SECTOR 2 is a BLOCK 

TRACK 20, SECTOR 3 is the next BLOCK 
TRACK 18, SECTOR 0 is another BLOCK 


2 - Procedures are covered in FORMAT (2000). Don’t worry - you don’t need to “figure” to do it. The DOS does the work 

3 - Don’t bother about memorizing this table. If you’re not curious then don’t even look at it until you need it. 

* - Adapted from “VIC-1541 USER’S MANUAL,” CBM. September 1981, Page 55. 
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0235 — 0244 


0235 ANATOMY OF A BLOCK or SECTOR 



Region 2 contains two bytes used to note the TRACK and SECTOR of the next block in the data file or pro¬ 
gram. 


Region 3 contains 254 bytes for your program or data file. 


Regions 1 and 4 are for miscellaneous bookkeeping functions. These enable the drive to know which track 
and sector it is looking at, check the identification of the disk, allow time to shift “gears” from read to write or 
vice versa, even check for errors and know when it is finished the sector. 


0236 ANATOMY OF A BYTE 


ABIT 


A BYTE contains 8-BITS. A BIT is a binary digit, a 1 ora 0 in our language and “blip” or no “blip” 
in computer (and diskdrive) language. BITs are what “travel” from your computer to your peri¬ 
pheral devices. Your drive simply reads and writes BITs. Fortunately we don’t have to keep 
trackof all the BIT sail by ourselves. If we could ourcomputerand its friends would not exist. 


0240 ARITHMETIC 


Here’S a little quiz. Don’t panic, the solutions are on the next page. I just figured you’d be sick of reading by 
now. Time to do some thinking. We’ll be working on relating track and sector numbers. 


0241 QUESTION 1 How many blocks or sectors are there on each of our DISKS? (Hint: See Table 0233). 


0242 QUESTION 2 If each BLOCK contains 256 bytes, how many bytes can be stored on an entire disk? 

(Yes, I knowyou need theanswertoQuestion # 1 toanswerthisone. Partial credit will 
be given if you can simply figure out how to figure it out!). 


0243 QUESTION 3 How many bits are stored on a single disk? (GOOD GRIEF!!) 


0244 QUESTIONS 4 - 6 There is something wrong with each of the following. Figure out what it is.(Hint: See 

Table (0233). 

# 4. TRACK 95, SECTOR 1 

# 5. TRACK 20, SECOTR 95 

# 6. TRACK 20, SECTOR 1 9 
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0245 


0245 QUIZ ANSWERS. 


#1. 683 BLOCKS in all. 


FORMULA: 

( numberX 
OF 

TRACKS / 


( NUMBER \ 
OF \ 
SECTORS | 
PER 
TRACK 


/ 


NUMBER OF BLOCKS 
ON THAT 

BATCH OF TRACKS 


WORK: 

17*21 =357 
7*19=133 
6* 18= 108 
5*17= 85 


357 + 133 + 108 + 85 = 683 


#2 683 blocks* 256 bytes/block= 174,848 bytes 
#3 174,848 bytes * 8 bits/byte = 1,398,784 bits 


V Who £ 
f Cares? X 


#4 There ain’t no Track #95. (We have only 
35 Tracks so there isn’t even a Track #36. 



#5 Sector #95, the 95 is too large. 21 is the largest number of sectors on any one track 


#6 To answer this you have to count like a computer (or at least read the last column, 2nd row of the 
table). 


Sector #0 is the 1 st 
#1 is the 2nd 
#2 is the 3rd 
Etc., etc. 

#17 is the 18th 

SECTOR #18 is the 19th and last sector on Track 20. Give yourself a gold star if you got this. 
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0250 — 0253 


0250 FLOPPY DEVELOPMENT STAGES 


0251 BLANK 




Brand New 

No format, No directory, No BAM 
No sectors, No programs, No files. 


Note: Any attempt at a LOAD, SAVE or other command, except “NEW” (2000), will result in an error condi¬ 
tion - FLASHING RED LIGHT 


0252 “BABY” 



Note: You can now LOAD the directory but nothing else. If you ask the drive to LOAD anything else it will 
flash its red light. You can SAVE programs and write files to your heart’s content. Once you save a program 
or write a file, you’ve got a “mature floppy.” 


0253 “MATURE” 



I carry valuable information for your computer, programs to run and/ 
or files to read. These may have been prepared by a professional 
or an amateur. In either case a great deal of time and money was 
spent on me. 


Note: If you use the “format process” (“NEW” command) on a “mature floppy” you turn it back into a “baby 
floppy.” (2000) 
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0260 — 0261 


0260 The DIRECTORY 


In essence, the DIRECTORY of a disk is its “Table of Contents.” It may have up to 144 entries similar to those 
shown in the sample below. 


0261 SAMPLE DIRECTORIES 


BABY” FLOPPY: 


0 IM 3 El 13 B l 3ftil 3 TO Si 'AniHHI 3! 8 HfSf iSi 

664 BLOCKS FREE. 



The directory of a “baby floppy” contains no program or file listing. Of the 683 blocks 
on a disk, 664 are free for your use. The other 19 are used for BAM. (Track 18, Sector 
0). The Directory Header, (the heading you see), also on Track 18, SectorO. Future 
entries will occupy Track 18, Sectors 1 through 18, (8 entries per sector). 



MATURE” FLOPPY 

0 


DISK NAME 


UlSKISMfl 


ID Code 

\ 


DOS Version 

/ 


-Format type 


BLOCK LENGTH 
OF FILE OR 
PROGRAM 


"EEL. PGM TEST" 

PRO 

"MV EEL. PGM" 

PRO 

"SRMPLE SOUHIi" 

PEG 

"SOUND TEST" 

PEG 

"102 GPU Bl<" 

PRO 

"HAUNT" 

PRO 

"EXAMINE FILE" 

p R i.j 

"AUTO TEST" 

EEL. 

"1000 RECORDS” 

PEG 

"MV SEQ PGM" 

PRO 

"EDIT iEST" 

RE!.... 

"SEQ PGM II" 

PRO 

"TEST CHANGE" 

SEQ 

"WIDGET" 

RE!.... 

"SEQ FILE CHANGE" 

PRO 

"HOW LONG" 

SEQ 

"SEQ STRING PGM" 

PEG 

" NOW" 

SEQ 

"HR DFIR CA" 

PEG 

"FILE OPEN" 

#3EQ 

BLOCKS FREE., 

t i 


PROGRAM FILE 


RELATIVE DATA FILE 


SEQUENTIAL DATA FILE 


FILE TYPE 2 


Number remaining 


File that has NOT been CLOSED 


2 - This is also a USR for USER FILE. Discussion of USR files beyond the scope of this text. 
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0260 — 0264 


0262 DIRECTORY ASSISTANCE 

(or how to get organized) 



The sample directory shown isfrom a‘working’disk A hodgepodge like this results when little or no thought 
is given to organization. The general idea of a working disk is that one works up a program on it, like a 1 st draft 
(2nd, 3rd, 4th, etc.). When completed (if there is such a thing), the program is transferred to the proper‘using’ 
disk 


The directory header contains, in reverse, the NAME of the Disk its ID code, a code for DOS version and for¬ 
mat type. 2 The name appears in the header only and is strictly for user convenience. The ID code is written 
on every sector during the “format process.” 3 


0263 ORGANIZATION BY TYPE 


If you anticipate a large file of disks, you may want to set up a system that uses a different disk for each type 
activity. 


DISK NAME 

ID 

GAMES 1 

G1 

FINANCIAL 3 

F3 

FILE 3 

3F 

EDUCATION A 

EA 

GRAPHICS 5 

5G 


Notice 

the 

difference 



Each disk should have its own ID code. 3 You need not worry about running out of codes. Without resorting 
to the graphic characters and punctutation, you have 36 symbols (26 letters—10 numerals) at your disposal. 
Each ID code contains exactly 2 characters. That’s over 1,000 possible codes. 


36 * 36 = 1296 1296 - 36 = 1260 codes. 

1 st Slot 2nd Slot Because AA is the Same as AA. 

0264 Organization by PGR/FILE NAME 


Each program/file on a disk must have its own name. A good name is short and descriptive. (Names can nev¬ 
er get very long since only 16 characters are allowed). 


ex. PROGRAM 1 
PROGRAM2 
PROGRAM 3 


Names like these are not good. Two weeks lateryou won’t remember 
what they are. This kind of name is good for different versions. 


MAILING LIST ) 

ADD PRACTICE \ Names like these are much better. 
ROCKET J 


2 - 2A will appear on every disk you ‘format’ on your 1 541 (0261). 

3 - The “format process” is described in (2000). The function of the ID code is described in (2123). 
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0264 — 0270 


0264 (Cont’d) 


One frequently has a need to “view the directory” of a disk. The directory of a disk is the only “non program” 
that can be LOADed into computer memory. 2 144 possible entries will take more than one screen to view. 
(It is like listing anything but a very short program). A neat way to overcome this obsticle is to preface program 
names with a code to indicate type. You’ll then be able to use wild cards and pattern matching 3 to view por¬ 
tions of the directory. 


ex. FN-CHECK BOOK 
FN-BUDGET 
FN - TAXES 


GM-SNORF 
GM- HAUNT 
GM-GOBBLE 


ED - MATH + 
ED - MATH - 
ED-SPELL 


SIN-SONG CREATE 
SP-ELEPHANTS 

etc., etc. 


Obviously the possibilities are nearly endless. If 
you are just getting started you don’t need to worry 
.. .yet! Just file these thoughts in the back of your 
mind. 


P.S. - The sooner you start nailer the mess J 
you’ll have to clean up. Please don’t ask me how Jl 

. J 


I know that... 


0270 DETAILS, DETAILS (Track 18) 



2 - For methods see (1210). (1250) shows a way to view without overwriting the program currently in memory. 

3 - For details see (1340) and (1350). Especially (3125) for cautions. 
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0271 


0271 Track 18, Sector 0 

BAM (Block Availability Map) and Directory Header 


T 

R 

A 

C 

K 


When a disk is “formatted” (2000), (0250) and (0233), part of a block is devoted to BAM. Imagine a very small 
elf sitting on a stool with a tiny clipboard. When a SAVE program or CLOSE file command comes through, the 
elf checks off the blocks used The BAM elf can also tell if there are enough blocks available to store whatever 
it is we want to store, allocate blocks for future use (8000) and free block for future use on a SCRATCH com¬ 
mand. Here’s how the BAM elf’s clipboard may look. Compare with chart (0233). 


SECTOR 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 


1 
















■ 

■ 




1 

2 





















2 

3 
















B 

■ 




3 

4 





















4 

5 





















5 

6 





















6 

7 















■ 

B 

■ 




7 

8 















■ 

fl 

■ 




8 

9 















■ 


■ 




9 

10 















■ 

B 





10 

11 





















1 1 

12 

















fl 

B 



12 

13 





















13 

14 





















14 

15 





















15 

16 





















16 

17 















■ 

fl 

fl 




17 

18 

✓ 

v/ 

_v/ 

V 

v/ 

v/ 

v/ 

✓ 

v/ 

v/ 

v 7 

v/ 

V 7 

v/ 

B 

fl 

B 

B 





18 

19 























19 

20 























20 

21 














■ 

B 








21 

22 















!_ i 








22 

23 















B 

■ 







23 

24 























24 

25 
























25 

26 
























26 

27 
















■ 

B 







27 

28 
















_ 








28 

29 















B 

■ 








29 

30 








_| 







fl 

■ 

fl 







30 

31 








1 

















31 

32 

























32 

33 

























33 

34 










_1 















34 

35 

























35 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 1819 20 



T 

R 

A 

C 

K 


SECTOR 


2 - The specific byte numbers reproduced here are adapted from “VIC-1541 USERS MANUAL,” CBM, September 1981, 
Pages 55- 57.1 have reasons for questioning their accuracy. They are presented here simply to give you an idea of 
“structure.” See (6400) for “the problems.” 
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0271 


0271 (Coni’ d) 


Part of Track 18, Sector 0 is also devoted to the directory header. 
D irectory header (0261) 




This is what we always see when we view the 
directory. 


TRACK 18, SECTOR 0* 
BYTE 0 contains 18 | 

BYTE 1 contains 1 j 

BYTE 2 contains 65 { 

BYTE 3 contains 0 j 


0 Track of the first block of the directory 

0 Sector of the first block of the directory (0235) region 2 
0 CHR$(65) is an “A.” i.e. ASC(“A”) = 65 
0 CHR$(0) is an empty. ASC(“”) gets us an error. 2 


BYTE 4 


’ contain 


BYTE 143 


These 140 bytes are BAM. Specifically how they are arranged 
I don’t know. (Nor did I need to until recently) (6400). 


BYTE 144 


contain | These 18 bytes are reserved for the name of the disk 


BYTE 161 / 

BYTE 162 } COntain { 

BYTE 165 contains 50 
BYTE 166 contains 65 

BYTE 167 

I 

BYTE 255 J 


ID code for the disk F & F above, 0 and 2 and N and W in (0261) 

CHR$(50) is a “2,” the DOS ’ 

CHR$(65) is an “A,” theformat type 

seem to be used for spacing or not at all. The 1 st few are probably 
padding of some sort. 



You can do just about everything in this text without knowing any of the above. 

/hen useful Only in (6400) will specific details be necessai 


You’ll be referred here when i 


* - Note the foot note on the last page. 

2 - See your “Programmer’s Reference Guide,” CBM 1982 for more details. 

3 - I’d like to know where the 6 in DOS 2.6 is hiding of its necessary operation its got to be some place. If not, I’d like to know 

that, too. 
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0272 — 0273 


0272 TRACK 18, SECTORS 1-18* 
Directory Entries 


BYTE 0 contains 1 8 Track of next block in the directory. 
BYTE 1 contains 76 Sector of next biock in the directory. 


BYTE 2 

BYTE 31 


30 bytes for a file entry. (0273) 


”PR0GRPll v l NAME" PRO 


BYTE 32 \ appears to be padding 

BYTE 33 / between entries 

BYTE 34 \ 

I 30 bytes for another 

” I file entry (0273) 

BYTE 63 ) 


'GR SAMPLE 


REL. 


BYTE 64 \ 
BYTE 65 J 

BYTE 66 ' 

BYTE 95 , 


appears to be padding 
between entries 


and another 30 
bytes for the next 
file entry (0273) 


:i. 


t::.G 


o 

o 

o 


and so on. 2 bytes/30bytes/2 bytes/30 bytes/ 


BYTE 226 

last entry in this 
sector. DOS will 
* go to 18,x for the 
next entry. 

BYTE 255 



Notice that there is room for 8 entries per sector (256 divided by 8 = 32) 

Here are 18 sectors on Track 18. 18 sectors * 8 entries per sector =144 entries in all. 


SEQ 


0273 All the directory entries are structured on the basis of 30 bytes. 2 


0 1 2 3 4 5 6 7 8 9 10 1 1 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 

Tt s - - -- -- ... I t s - - - - t s lo hi 



File Type & “Closed” 
indicator 
(SEQ, REL, PRG, 
USER, DEL) 


bytes for program or file 



name 



relative 3 files only 


I = record length 
t ) first side 
s f sector 


unused??? 


|| U 

length of filet 
lo = lo byte value 
_ hi = hi byte value 

replacement file 


* - “VIC-1 541 USERS MANUAL” CBM® September 1981, Pages 56 -57 


2 - It is here that I have my doubts as to the accuracy of the information. 

3 - (7000) 


t - (7335) shows how these work with record numbers in relative file, lo and hi bytes used in a similar manner in many aspects 
of computer operation. 
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0280 — 0285 


0280 KINDS OF DISKS 


0281 HARD DISKS are hard. A hard disk is made of metal (frequently aluminum) impregnated with a magnetic sub¬ 

stance. As with afloppy system, information isstored magnetically. In a floppy system, the head contacts the 
disk producing wearand tear. In a hard disksystem the head does not contact the disk(unless it“crashes” 
but that is another sad story.) 


A hard disk system allows for much greater storage capacity, high speed data retrieval and long disk life span. 
Before you start feeling sorry for yourself, think of the price tag. It contains four figures. 


0282 DIFFERENT KINDS OF FLOPPYS 


SIZES: 8” - Standard 

5Vi” - Standard Mini* 
3 - 3 V 2 " - Micro Floppy 

Miscellaneous others 


0283 SECTORING: HARD many index holes, sectors fixed, greater capacity 

*SOFT one index hole, sectors set by system, greater reliability. 


0284 DENSITY: DOUBLE 70 - 80 Tracks on a Side 

SINGLE 35 - 40 Tracks on a Side 


0285 SIDES: DOUBLE Both sides contain tracks. Drive mechanism needs “two heads” 
*SINGLE Tracks on one side only. Drive mechanism simpler. 


The bottom line(s): 

You get what you pay for. 

Do you really want to use a bazooka to shoot a chicken? 


* - The kind used by your 1541. Double density disks may also be used if you want to spend a little more money. Remember, 
your system willformat the disks (2000), (0230) with 35 tracks. 
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0290 — 0293 


0290 CARE of a FLOPPY DISK 

0291 HANDLING 


NEVER remove a floppy from its jacket. 
NEVER touch anything but the jacket. 
NEVER bend a floppy. 



N EVER wipe a floppy (even with a soft cloth). If you do see a pet hair, dust particle, cigarette ash, etc., blow 
gently across the surface. Excuse the indelicacy, but, take care not to spit. 


0292 PROTECT from 


MAGNETIC FIELDS. Information is stored magnetically and can be erased the same way. Any device plug¬ 
ged into a wall outlet produces magnetic fields. (Get a directional compass and watch the needle bounce 
as you move it around your system 


TEMPERATURE EXTREMES AND DIRECT SUNLIGHT. Floppies are made of a plastic that will get brittle 
when too cold and melt when too hot. Your automobile is a lousy place for a floppy on a cold winter night 
or a hot summer day. When you do transport floppis allow them to “thaw out” before using. 


DUS .AND ABRASION. Even atinydust particle can cause serious abrasions as the disk spins in thedrive. 
Keep a floppy in its envelope whenever it is not inm the drive. Write on the label only using a felt tipped pen 
and a light touch. You can write your life history on the envelope with a hammer and a chisel but remove 
the floppy first. 


MOISTURE. Do not attempt to water your floppy. Floppies only byte bits and can drown in a spill or water 
ring from a cold drink. Seriously, a spill can ruin software and, worse yet, hardware. Either outlaw beverages 
from your computer area, or keep at a distance. 


0293 USING FLOPPIES 


N EVER POWER ON or OFF when a floppy is in the drive. Data can be erased when the magnetic field changes 
Even one messed up byte can ruin a program. Damage does not always result. It’s the one time that it does 
that is one time too many. 


ALWAYS insert or remove carefully. NEVER force. 


NEVER attempt to remove a floppy when the DRIVE is making NOISE. To be very honest, I don’t know what 
happens. It’s an experiment I’m too chicken to try with my hardware, (any volunteers?) 2 * 


ONLY insert or remove floppies when the DRIVE is READY, i.e. GREEN LIGHTON; RED LIGHT OFF; DRIVE 


QUIET. 


Invest in a special disk file box. 

It is well worth the added expense. 


2 - If worse come to worst, powerdown the computer. The drive should stop “working” and you can remove your disk. You 
will, of course, have to reload the program and you risk losing data entry time. 

*- Sources say it doesn’t hurt anything, that the heads retract and the drive quiets. Save for a dire emergency when noth¬ 
ing eles works... 
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0294 — 0310 


0294 STORAGE 


A verticle file that does not put pressure on the sides of the floppies is best. 


Do NOT, no matter how tempting, stack floppies on the top of the DRIVE or the MON ITER. Again we find 
magnetic fields and heat. 


Keep your storage box a few feet away from your hardware or other electrical devices. 



0300 SYSTEM SETUP 


0301 


This section is intended as a quick refresher. It is especially useful for quick assembly after infrequent trans¬ 
port or for gremlin checks. (Gremlins occasionally infest computer areas. They frequently take the form of 
children, parents, siblings, roommates, or spouses). 


0302 If you’ve set up the system more times than you can count, you can skip the entire section. Just remember, 
it won’t work if you don’t plug it in. GOTO 0400 


0303 If by any chance you are new to your entire system, I suggest you take time out to study your manuals. This 
section is not intended to replace them for proper unpacking and detailed “set up” instructions. Acquaint 
yourself with your system bit by bit. GOSUB user's manuals. 


0310 SET UP CHECK LIST 




FOR HELP 

“Stuff 5 Gathered 

:GOSUB0311 

Prep Drive 

:GOSUB031 2 

Prep Printer 

:GOSUB0313 

Interconnect Devices 
_Connect Devices to Power 

:GOSUB0314 
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0311 — 0315 


0311 “Stuff’ 


_ Computer _ DiskDrive_Printer 

_CableforTV/Monitor _PowerCord_Ribbon 

_PowerCordwithTransformer(BiackBox) __ Powercord(probablyattached) 






s 



All USER’S MANUALS 
first in case 


0312 


Prep Drive: If shipping guard is visable (in front—you can’t miss it), remove or check for disk. GOSUB 0600. 


0313 Prep Printer: Load paper (full width to star t so as not to cause print head to print over the edge), and ribbon. 
Study your manuals. 


0314 interconnect Devices 

Computer Monitor/TV 

Datasette -► computer 

Drive -►computer 

_ next driven-►drive (etc) 

_printer-*-►drive 



031 5 BACK OF COMPUTER 



SOUND SYSTEMS 
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0316 — 0318 


0316 SIDE OF COMPUTER 



0317 BACK OF DISK DRIVE 


SERIAL PORTS 




m3 

\ 

Set Here 


TO COMPUTER 


CONNECTOR 
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0319 — 0412 


0319 Connect Devices to Power Source. 



0400 To “POWER ON” 


Rem: The order given below and in POWER OFF (0700) is based on often conflicting reports from general 
sales people, (who may know less than you do), manufacturer’s representatives, self-proclaimed computer 
experts, (whose knowledge can be worse than none at all 2 3 ), miscellaneous manuals that contain glaring 
errors, and technicians who repair equipment. The only consensus is the following— 

| COMPUTER LAST ON, FIRST OFF | 


0401 Note: If any reaction fails to take place: 

Shut down all devices. 

Re-check all connections. 

Repeat procedures from the beginning. 


Still no luck? Power down. Re-study manuals and last, but not least,.call your dealer. 


0410 POWER ON CHECK LIST 


REACTIONS 

None 

None 

Snowy Picture 2 
Hopefully none (0600) 

Power light on. Print head moves. 
Power lighton. 

Powerlighton. Initialimageforms. 


_ SYSTEM SET UP 

Cartridges Inserted 

_ Monitor/TVON 

_Re-CheckDriveforDisk 

FOR HELP 

_ _ Printer PowerOn 

GOSUB(041 2) 

_ Drive PowerOn 

Computer PowerOn 

: GOSUB(041 2) 


0411 Drive Reaction: Both lights come on, drive “whirrs.” (0140) The red light may go out and the drive may get qufet 

when you power up the computer. 

041 2 Here is the major source of conflict in order. Some sources say drive on before printer. 


2 - I know of at least one such wig that blew not one but two computers fooling around with wiring tricks. 

3 - You may notice your 1 541 manual has a little problem with red and green. 

*-1 use an old TV that needs warm uptime. Nobody seems to care when a TV goes on. Maybe a monitor does. Check it out. 
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0500 


TO INSERT DISK 


0510 


Rem: This section is meant for an inexperienced user, or those wishing to cultivate good habits. 


CAUTION: DO NOT insert or remove disk while drive is making noise. ^__ 

DO NOT power on or power off when there is a disk in the drive. 

The majorhazardistothe disk You maygetaway with otherof theabove 
^ _ 999 times, it’s the 1,000th time that can mess up your software. 




INSERT DISK CHECK LIST 

(in disgusting detail) 



FORHELP 

__ SYSTEM ON 

GOSUB(051 1) 

DRIVE READY 


GREEN LIGHTON 

GOSUB(01 30) 

_ RED LIGHT OFF 

and 

DRIVEQUIET 

GOSUB(0140) 

_OPEN DOOR 

: GOSUB(051 2) 

GET DISK FROM STORAGE 

: GOSUB(0290) 

_ REMOVE DISK FROM ENVELOPE(Not jacket) 

GOSUB(0210) 

AIM (see illustration) 


INSERT (Gently!—see illustration) 


CLOSEDOOR 

GOSUB(051 5) 





AIM 


I 


051 1 


You can, of course, practice with the system off, just don’t turn it on with a disk in the drive. 











0512 — 0710 


0512 


0600 


0610 


0700 


0710 


If you can push down on the latch, the door is already open. If not, push in and allow latch to pop up. If a disk 
comes flying out, you’ve mastered most of (0600). 



rrmr 

1 


RinFVlFWOF 

I 

t 

DRIVE 

1 


b-' 


LATCH UP - DOOR OPEN 


TTTnr 


-SIDE VIEW OF- 
DRIVE 


V 


LATCH DOWN - DOOR CLOSED 


TO REMOVE A DISK 

Rem: This section is meant for an inexperienced user or those wishing to cultivate good habits. 


REMOVE DISK - Check List 


(0130) 

& 

(0140) 

(0512) 


(0290) 

(0290) 


To POWER OFF 


DRIVE READY 

_ GREEN LIGHT ON 

_ RED LIGHT OFF 

_ DRIVE QUIET 

_ OPEN DOOR 

_ CATCH DISK 

_PLACE DISK IN ENVELOPE 

_ PLACE IN STORAGE 


If no floppy flies out when the latch pops up, and 
you can feel one inside, wiggle gently. If the write 
protect notch is covered, a bad job can be the pro¬ 
blem. Simply remove and replace. The disk may 
have a problem. Do not force. 


Rem: Read 0400 if you haven’t already done so. The same principles apply here. 


POWER OFF-Check List 


_ Checkfordiskindrive-remove(0610) 

_ ComputerPowerOff 

_ Checkfordiskonemoretime 

_ DrivePowerOff 

_ Printer PowerOff 

_Monitor/TV PowerOff 

_ Checkforpowerlights 

_ Unplug system 

_Cover 

_Thank your system for a good day’s (night’s) work! 


(picture turns to show) 


Nobody seems to care 
what goes off first. 


Just in case lightning strikes. 


No kidding! Your 
house wiring 
may fry, but 
your system 
won’t fry with it! 




Depending upon your relationship with 
your system, you may wish to pat it, or 
murmur to it in some way. DO NOT burn 
incense, it is dusty. 
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1000 


1000 LOAD 


CHAPTER DIRECTORY 


1100 PRELIMINARIES 

1110 What’s going to happen 
1120 What you need and how to get it 

1 200 ESSENTIAL PROCEDURES 

1210 LOAD the DIRECTORY 
1220 LOAD a program 
1230 The WEDGE 
1240 LOAD with Active Wedge 
1250 “View” DIRECTORY 
1260 LOAD to Special Memory 


1300 SLICK TRICKS 

1310 Quick LOAD - DOS 2.6 

1320 Quick Load - DOS 5.1 «WEDGE» 

1330 Wildcards 

1340 Pattern Matching 

1350 Variable Program Names 

1360 Summary Name Find 

1370 Alternatives to Program Loss 


1400 GENERAL FORMATS 


1010 PRE-LOAD CHECKLIST 



CHECK 

FOR HELP 
GO SUB 

1011 

SYSTEM SETUP 

0300 

1012 

SYSTEM ON 

0400 

1013 

DRIVE READY 

0140 

1014 

DISK SELECTED 

1122 

1015 

DISK INSERTED 

0500 

1016 

PROGRAM NAME HANDY 

1123 

1017 

READY TO SACRIFICE 
PROGRAM NOW IN 
COMPUTER MEMORY 

1370 
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1100 — 1118 


1100 PRELIMINARIES 


1110 What is going to Happen 

REM: See 1200 for “how to” details. 

1111 USER types command in proper form and hits RETURN key. 

1112 COMPUTER tells DRIVE to go to work and sends a message for you to the monitor. (The 
screen does not blank.) 

( - 

SEARCHING For— 

1113 DRIVE puts on its RED WORKING LIGHT and makes noise. (0140) It looks through the 
directory for the program it was asked to load, notes the Track and Sector of the first 
block in the program, positions its head to that location and starts to read. 


Meanwhile the computer gets the all clear and sends you another message. 


t 

SEARCHING FOR- 
LOADING 


1114 If the program is longer than one block, the drive will note the track and sector of the next 

block, read the current block, send that information to the computer, find the next block and 
so on and so on until it “sees” the end of file marker. It lets the computer know it’s finished 
and the computer sends its favorite message. 




1115 The red light goes out 

and the drive is quiet. 


SEARCHING FOR 

LOADING 

READY 


□ 


1116 All of this will happen very quickly unless the program is very long. (50 blocks take about 30 seconds) 


1117 If anything goes wrongfDOS can’t find what it’s looking for) the RED LIGHT will FLASH. 

No need for panic, (yet) 


1118 Control of the“FLASHING RED LIGHT’ is described in the last chapter 9000. At least 

locate that chapter, skim it, and remember it’s there when you need it. 
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1120 — 1210 


1120 What You Need and How to Get It 

REM: You MUST: 

1121 have the System. If no system, GO TO dealer. 

1122 have a DISK with a PROGRAM on it. 

You have this already since you have the DISK that came with this parcel or the TEST- 
DEMO disk that came with your system. 1 In general, any previously prepared software 
“store bought” or otherwise will do if it’s for a C-64 or a VIC-20. 2 

You may not 3 perform a LOAD operation on a brand new blank disk or on a disk that has 
just been formatted. (250) 


If you are a first time user I recommend you use “Friendly Floppy” the disk supplied. 

11 23 know the EXACT 4 name of the program. 

To LOAD a program from a disk, you must tell the system exactly what program to load. 

Your old tape drive doesn’t need the name but you know it has to go from beginning to end. 
(Back again if you missed it the first time.) 

Software documentation (instructions) usually includes the name of the program and any 
special loading instructions. (No documentation? Don’t panic! We’ll deal with that in 1130.) 

1124 know the correct command format. 

You’ll find the commands for the disk drive a bit more complicated than those for the tape 
drive unless you learn to activate the «WEDGE» (1230). 

The LOAD commands are explored in disgusting detail in 1 200 or in summary form in 1400. 


1200 ESSENTIAL PROCEDURES 


1210 To LOAD the DIRECTORY 

REM: If this is your first time, 

I recommend you use “Friendly Floppy” 
that came with this text. 



w/'A^vu/L/t 

W; 

^ KMM a/v\AA A/\AKAAa NA M 
nj \J v V U* * v V v v V V u 

IV V /Porvtim ^ 



(Continued) 


1 Be careful with some of these. Mine weren’t friendly. 

2 See also 101 -1 02. 

3 You can try, but you’ll get a “flashing red light”. If you know how to deal with it, no damage 
to anything but your egeo. 

4 You can get around this if you know some “slick trick”. See also 1300. 
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1210 — 1222 


1210 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 


1221 

1222 


(Cont’d) 

Use $ for the name of the program. 1 


Perform pre load check (1010) 


type: 2 l .O Fl IJ ”" 3== Hfi 


After you hit “return” the system will take over and react as described in 1110. 

If the red light flashes, GO SUB 9000. 

When the computer says “ready” and the red light goes out type: L I ft F 3 

After you hit RETURN key you’ll see the directory of whatever disk is in the drive. (See 261 
for sample.) You can remove it from memory like you would a program (“NEW”, LOAD 
another program, but don’t power off until after you remove the floppy.) 

If the directory is very long, you can control the listing in the same way you control a program 
listing, CTRL key to slow or RUN/STOP key to stop. 

If you were here to get a program name, don’t forget to remember it. Simply LIST again if 
you just cleared the screen. 


LOAD a Program (DOS 2.6) 

REM: HRUURAM NAME must be the exact name of the program you wish to load. Exact 
means just that, character by character including all of the spaces. 



This one is especially 
important. 


3 


On your “Friendly Floppy” there is really a program by the name of PRUURHM NAME 
If “Friendly Floppy” is in the drive and you type the command exactly as shown, 

RRUURHM NAME:, will be loaded. 


If you want to load some other program, just substitute its name for PRUURAM NAME , 


If the documentation has loading instructions that differ from the one below, follow them. 
(See also 1 260) 


Perform PRE LOAD CHECK (1010) using the command below. 


'Required Punctuation 

type: S .LJ ii . 8 l.J !! If . n iK:” .H *1 S""^ ii . ii i”"! Ih'-li ii . II IT"’ll i!::::::.. " " 

(Continued) 


This Number Required 


1 The directory is not really a program. It is a special “file” that can be loaded. (No other 
data file can be loaded directly to memory.) 

2 Type exactly what you see after the colon. 

3 If you try a RUN you’ll get a SYNTAX ERROR. No big deal. No flashing lights. 
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1222 — 1234 


1222 


'1223 

1224 

1225 

1226 

1230 


1231 


1232 


1234 


(Cont’d) 

REM: The in the command above is the DEVICE NUMBER. This is how the system knows 
you want it to load from disk rather than cassette. If you don’t use the , the system 
will automatically try to load from tape. When that happens (as it does to old cassette users 
in a hurry) simply hit RUN/STOP key and start over. No harm done. (See also 160.) 

After you hit RETURN key the system will go to work as described in 1110. 

If all went well you’re ready to LIST, RUN* or whatever. 

If the red light is flashing, don’t panic. The most common problem here is mis-typing the 
program name. (The system may even have sent you a message.) Check your spelling 
again. If that’s the problem, retype or patch up your command. The red light will take care 
of itself. 

If the red light is still flashing, GO SUB 9000. 


The WEDGE 

REM: To be honest, if all you want to dais load and run programs, the WEGE is probably 
more trouble than it’s worth. BUT, if you are going to do some serious programming, 
especially with files or experiment with disk commands, the WEDGE will more than 
save the time it takes to load. 

“ACTIVATE your WEDGE” means to LOAD and run it according to the instructions 
given in your documentation. I’m sorry I can’t be more specific but different programs 
require different methods. One of the following will probably be required. 

a) Load a simple BASIC program which when RUN will put a machine language program 
(DOS 5.1) into computer memory. 

b) Use a special memory load command allowed by a SYS command (See 1260) to put 
DOS 5.1 into memory. 

In either case, follow the directions carefully and be sure to perform the pre load check 
(See 1010.) 

Once “activated” your WEDGE will stay active until you power off or type the “QUIT” 

command, ,/U or I.HiU . No other BASIC command (to the best of my knowledge) will 

turn off your WEDGE (actually DOS 5.1). Your system will behave normally except that it will 
respond to a whole bunch of commands that it didn’t know before. 


“ACTIVATE your WEDGE” according to directions. 
Check for Active WEDGE. 
type : 15! ...> 


If your WEDGE is active, you’ll see: 


P.S. YOU NOW HAVE THE 
BEST WAY TO SHUTOFF 
THE FLASHING RED LIGHT. 


- 

00.- OK.- 00,00 

READY 

□ 



*Be sure to follow any special instructions given in the documentation. 
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1240 — 1258 


1240 

1241 

1242 

1243 

1244 

1245 

1246 


1247 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 


LOAD Using ACTIVE WEDGE 

Check for Active Wedge. GO SUB 1 233. 

If active, GO TO 1243. 

If not active, GO SUB 1231. 

Perform pre LOAD check (1010) 

type: „--' n F Ze 01(3 F< Fi Ml M F : fl r-1 E : I 

Use the name of the program you want to load, of course. 



if ail is well PROGRAM NAME is just about loaded and as soon as you see READY, 
LIST, RUN, or whatever. 


Whoops!!! 


If you got a “Syntax Error” and your typing is correct, your WEDGE is not active. GO TO 

1 231 ^ <> 

—^ \ Do not pass GO. ^ 

rf'sW C D ° notc ° ||ect $200. J 


If the red light is flashing, type: @ 
GO SUB 9500. 


View Directory without Losing Program 

If you have “powered off” or typed IJf!U or , activate your WEDGE. 

Check for Active WEDGE (GO SUB 1 233). If not active go to 1 230. 

Insert any formatted disk. (250) 

type: if»=s :*“|T or 

After you hit return the directory will appear. 

If you have a program in memory, LIST it. It’s still there! 

If you don’t have a program in memory, load one (1 240) and fool around a while. 

If the red light is flashing, type: I.!? GO SUB 9500. 
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1260 — 1263 


1260 LOAD to S pecial Memory Location 


REM: This command causes the system to load a program to the exact memory location 
from which it came. It is only necessary for memory-dependent programs such as those that 
involve machine language or other esoteric functions. 


,-vV Ayv f VAA^^^ VaAa^/Va/Vvi^^ 

CAUTION: This command can cause a system “crash” if used when not appropriate. f 

/ 

DO NOT USE unless told to do so, or you know the program was SAVED using the 
corresponding command or unless you want to see your system crash.* 


A 

!. 





The only reason for presenting this command at this time is so you aren’t bothered if you 
encounter it in documentation. Since this command can cause trouble, don’t type anything 
unless you know you have to. (See program documentation.) 


1261 Perform pre LOAD check. (1010) You may be able to do that mentally by now. 


1262 


Format: |L.. il...J M 1J 11 ’* 1 0 il""-" H H 8H I"II Ih-I iHi I" 11:::.. H h 


X 


REM: It is safe, I hope, to use 

this with PROGRAM NAME on “Friendly 

Floppy” 


.• 1 is the secondary address. It’s 
the signal to the system to load 
to the memory address from which 
the program was saved. 


REM: For comparison: 

LORD "PROGRAM NRi Y iE. !: , 8, 8 
LOAD "PROGRAM NFlME " , 8 


The “formal” format for 


(i.e. If not specified the system 
assumes a secondary address of 0, 
which signals a normal LOAD.) 


1 263 If WEDGE ACTIVE, the following command may be used: 


P” 


O G IFF: R M M R M IE 


(equivalent to 1 262) 


*So you want to see your system crash. Use the command in 1 262 with “HOW PART TWO” 
on the “TEST/DEMO DISK” weird things will happen to your screen. REMOVE DISK from 
drive! Try to get your system to listen. RUN/STOP, RUN/STOP & RESTORE, etc. When 
you get tired of it, disk out, power off. 
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1300 — 1318 


1300 SLICK TRICKS 


REM: As with the earlier sections, most of these things are easier to do than they are to 
describe. 

The first two sections are for those of you who would rather play with the cursor controls 
than type. 

The 3rd and 4th sections are loads of fun if you like patterns and are good for getting you 
out of trouble when you want to load a program but don’t know its name. 

The next section, explaining how to load a program from a program, shows you how to use 
string variable names for program load operations. 

The last two sections aren’t really slick, but may be a handy reference. 

By now, you should be advanced enought that I can stop boring you silly with pre LOAD 
checks and lots of other “what ifs”. Please use common sense. 


1310 Quick Load - DOS 2.6 

1311 Put the directory onto the screen. (1 210 or 1 250) 

1312 (cursor up) to the line of the program you wish to load. 

(do not hit return until told to do so.) 


Y\ cursor up 
cursor left 
cursor right 
cursor down 


1313 type: LORlJ in front of the first set of quotes in front of the name. 

1314 (cursor right) past the quotes after the program name. 

1315 type: o' * after the second set of quotes. 

1316 SPACE BAR to blank out the rest of the line. 

1317 Now hit RETURN. You’ll see that standard 
display printed over the rest of the 
directory. It may look a bit like 
garbage. 


f— 

SEARCHING FOR— 

LOADING 

READY 

□ 


1318 


Before you run or list, either type the command and blank the entire line before hitting 
return or || to a clean line and type the command normally. 


Include secondary address 


only if necessary. (1 260) 
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1320 — 1333 


1320 QUICK LOAD DOS 5.1 «WEDGE» 


We’ll use the same process here as in 1310. This way is just a tad quicker. If you haven’t 
done that section yet, do it now to save repetition. 


1321 Repeat line 1311. 

1322 Repeat line 1312. 

(DO NOT HIT RETURN UNTIL TOLD TO DO SO.) 


Type: in front of the program name. Take care to blank out block numbers in front of the 

quotes. It’s OK to leave the quotes. Remove them if you prefer. 


1324 

1325 


ss y past the program name. 

Blank out the rest of the line with the SPACE BAR. 


optional 


1326 HIT RETURN 


1327 


1330 

1331 


Read line 1318 before you run or list. 


WILD CARDS 


Exit program mode. (I’ll write 
like a person for a while.) 

When your drive is asked to LOAD 
a program by name, it checks the 
directory entries against the 
name given in the command. It 
must be able to match each of the 
16 slots EXACTLY 2 character 
by character. (You get a flashing 
red light if it can’t make a 
match. 



To the drive “PROGRAM 1” does not match “PROGRAM1”. If asked to load “PROGRAM-1 ” 
it won’t load either of the above because it expects to find a after the 1, not a space or 
a 1. You’ve got a problem if you can’t remember the name. Rather than generating error 
conditions or viewing the directory, we can use wild cards and pattern matching. (1 340) to 
solve the problem. (Suppose you can’t remember whether you called the program TICK or 
TOCK) 


1 332 The symbol, V 3 , is the wild card symbol. 


The command LUftD " f :‘LK 1 .• c! will cause the drive to skip its match of the second character. 
It will load the first program it finds that has for characters (T, first;C, third;and K, fourth) 
i.e. To the drive T?CK matches all of the following: 

TICK, TOCK TACK, TECK, T-CK, T3CK, T CK, in fact, T anything CK 

1333 /T7CK is the equivalent WEDGE command. Special memory and corresponding WEDGE commands 

may also be used. (1260) 


2 - See 31 25 for a description of legal program names. 

3 - Yes, the same symbol as the abbreviation for PRINT. The system can tell the difference from the context. 
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1334 — 1338 


1334 


1335 


1336 


1337 

1338 


Wild cards can be used to examine portions of the directory. 


LOAD"$•T?CK",8 
L 1ST 

DOS 2.6 

“View” all directory entries that match in the 1 st, 3rd, and 4th slots. 


m■ T?CK 

To “view” with 
DOS 5.1 «WEDGE» 


Both are useful if you have a long directory or if your directory is 
organized as described in directory assistance. (264) 


Wild Card Formats. 



and 


/ 


DOS 5.1 
«WEDGE» 


/$: 


DOS 5.1 
«WEDGE» 


to “view” but 
not load. (1250) 

DOS 5.1 
«WEDGE» 


@$: 


Will load the first program found 
that matches each symbol 
except those slots filled by ? 


Will load or view all directory 
entries that match each symbol 
except those filled by ?. If no 
match is found, you’ll simply see 
an empty directory. 


More Samples of Wild Card. 


matches any name that contains exactly 4 symbols. 

' matches all names that have exactly 6 symbolds. 

I-'VV matches 3 symbol names that start with P. 

ex. PIG, PIN, PI 2, P-2, but not P2, POKE, or PROGRAM 5 

' matches all names with exactly 5 symbols that end in S. 

ex. SOCKS, 1 234S, C-64S , but not PS or HOPS or BLOCKS 

?fc. matches all names with exactly 3 symbolds that have E as the 
2nd symbol. 

ex. PEG, EE4, but not PEEK 


With a little planning you can set up some nifty directory entries. 

With Wild Cards alone, you still have to know the number of letters in the name of the 
program. 


46 










1340 — 1344 


1 340 PATTERN MATCHING 

1341 The symbol for pattern matching is # . 

1342 When $ appears in a load command,the drive will only attempt to match characters that 
precede the # . 

1343 Formats for examples: 


LOAD “ ”, 8 

DOS 2.6 


or 


DOS 5.1 
«WEDGE» 


will LOAD the first program found 
that matches. If no programs 
have been loaded from the disk 
in the drive, it will load the first 
program in the directory that 
matches. 


LOAD “$: ”,8 

DOS 2.6 


/$: 


@$: 


will LOAD all directroy entries that 
match up to the as in the 
examples below. 



entries without replacing pro¬ 
gram in memory. 


i 


Examples: 

liBU# Loads the first program found that starts with ABC no matter how 
many symbols follow. 

or 

Shows all directory entries that start with ABC, no matter how 
many symbols follow. 

ABC# matches ABC1, ABCDEFGH, ABC—XYZ, but not 
AABC, or XABC, or -ABC. 

t 

blank 

•fc Loads the first program found. It will be the 1 st program in the directory if no programs have 
yet been loaded. It will be the last program “looked at” otherwise. 

or 

Show the entire directory, i.e. L.UHI.i 11 $ !! .. 8 is equivalent to L.UiiiJ ; -i : ; '■¥. . b 
so there is no real need to bother. 



i 


NOTE: 

You might run into an error condition (DISK ID mismatch) when you are fooling around with 
Wild Cards and Pattern Matching and change disks. The drive will still look for ID codes. 
Type: (al . If that doesn’t work. GO SUB 9300. 
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1345 — 1352 


1345 

1346 


1347 

1348 

1349 

1350 

1351 

1352 


Combining Wild Cards & Pattern Matching 


You can use both % and'? in the same Load or Directory view operation. (The formats are the 
same as in 1 343.) 

Examples Combining # & ? 

blank 

f % will match a program name of 3 characters long or longer* | 

ex: BAT MOBILE, CATACLYSM, RST, or TTT-1 23, but not TTXA or IT T 

P will match a program name 2 characters long or longer* that has F as the first symbol, 

ex: FAT, FINANCIAL, FUN & GAMES, FX but not F or AFTER or FXFFF 


FlNBU will match all program names of any length* that start with A. The drive will stop looking 
when it sees the star. 


REM: If you happen to be a “word person”,the type who knows that OTTO spelled back¬ 
wards is OTTO and inside out is TOOT, you could really have a lot of fun with these. 


REM: Even if you don’t want to use these concepts in loading you may find them very 
useful later. 


“Friendly Floppy” contains some programs for you to “fool around with”. 


Activate your WEDGE. Then “fool around” with these. 


Use the format: 


@$: 


Try these: 
Examples 


EN or ?Rifc or RN or RRIN¬ 


VARIABLE PROGRAM NAMES 


HAVE FUN!!! 


String variables may be used in LOAD commands if the variable has been previously defined. 


If N$ has been defined either directly or in a program each of the following is an acceptable 
command. 


LORDN$,8 

/N$ 

Normal LOADS 

LOflliN*8 .• 1 


Special Memory LOADS 

DOS 2.6 

DOS 5.1 
«WEDGE» 



*Up to 1 6, since that’s the maximum number of characters in a file name or program name. 
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1353 — 1363 


1353 

1354 

1355 


1360 

1361 

1362 

1363 


L0flD"N$" .< y will cause the system to try to load a program literally named N$ and 

not whatever N$ was defined to be. 


L0fiBN$+ ” # " .« 8 will cause the system to load the first program it finds whose name 

begins with whatever N$ is defined to be, i.e. pattern matching in 
effect. (1340), see also a basic manual on “string operations.” 


SAMPLE PROGRAM: 


Rem: Sorry — you’ll have to type this one. 
Load and Run: VhiK i hiBL.I:::. L..hihiIJ 


When the prompt appears, type the name of any PROGAM on “Friendly Floppy”. 

10 F : R I NT !l ill'll:::; OF PROGRRM TO BE- LOfiliETifflir 

20 !MPUTH$ 

2 5 P R I N1 11 SMifli'i I L. L I... 0 fi D 1 ' N $ 

30 LORDN^.. 8 


Rem: I didn’t include it because too many weird things happened. You will, of course, notice 
that it seems to automatically run the program. I’ve also gotten some syntax errors on 
lines that don’t exist in the program it was supposed to load. Here’s another “can of worms” 
you may wish to pursue. An avenue to explore: What all is “cleared” by a run command? 
The answer may lie in a study of machine language. 


Summary Name Find 


Check Documentation. Program user instructions should at the very least contain complete 
loading instructions including the name of the program. 


Check DIRECTORY for likely candidates. 


LORD"*", 8 
LIST 

DOS 2.6 

(see 1210 for details) 


or 




DOS 5.1 «WEDGE» 
(see 1250 for details) 


Try Pattern Matching and Wild Card Techniques as described in 1340 and 1350. 

(Continued) 
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1363 — 1378 


1363 


1370 

1371 

1372 

1373 

1374 


1375 

1376 

1377 

1378 


(Cont’d) 

NOTE: LUflD " # " .» 8 will LOAD the 1 st program on the disk (if none has yet been loaded). 
Frequently, that will at least get you a menu or instructions. 

REM: This is a quick reference section only. Complete “how to” descriptions are in sections 
sited. 


Alternatives to Program Loss 

REM: There isn’t really one but, if the program in computer memory is that important, read 
on. 

If your WEDGE is active and all you want to do is “view” the directory, Type : or . 

(All you’ll get is a syntax error if your WEDGE is not active. You won’t have hurt anything. 

If your program has already been SAVED to DISK or TAPE, don’t worry about it. You can 
always reLOAD it later. 

If you have a cassette and don’t want to save to DISK, SAVE to cassette. 

If your program is too long to retype, then if you have a printer, LIST program on printer. 

OPEN1,4 
CM D1 
LIST 


PRINT#1 
CLOSE1 


If your program is not too long to retype, type: L 1 o f 
and hand copy. (UGH!) 

If you are really daring, learn to Format a disk 2000 and then to SAVE your program 3000. 
If you’re a beginner, now is not realty the time for that. 

If you want to learn to SAVE to disk before you learn to LOAD (not recommended) GO 
TO 3000. 

If your program seems worth keeping, GO TO 1371. 
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1400 


1400 GENERAL FORMATS* 

REM: This page is offered more to help you understand other 
commands than for any other reason. 


DOS 2.6 

LOAD" dr:program" 9 dv t sa 


parameters: 

dr: drive number [0 or 13 

omit or use 0 with single drive 
system 


program exact name of program - required 

16 character maximum 


dv device number [8-113 - required 

8 for unaltered drive, 
9,10,11 for others 


sa secondary address [0 or 13 

omit or use 0 for normal LOAD 
1 for special memory LOAD 


<WEDGE> DOS 5.1 

/program Normal LOAD 

dv = 8, sa =0 

‘/.program Special memory LOAD 

dv =8 , sa =1 

*program Normal LOAD and RUN 

dv =8 , sa =0 

note- dr: drive number [0 or 13 

(may be specified as above) 


* - Dual Drive — See appendix. 
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2000 FORMAT A “NEW” DISK 

(or erase an old one) 


CHAPTER DIRECTORY 


2100 PRELIMINARIES 

2110 What it means and what it does 

2120 What you need and how to get it 

2200 PROCEDURES 

2210 How to “format a disk” 

2220 Check it out 

2230 Shorter ways 

2300 ANALYSIS AND EXPERIMENTS 

2310 Analysis of OPEN 

2320 Analysis of PRINT# 

2330 Experiments with OPEN 

2340 Experiments with PRINT# 

2400 GENERAL FORMATS 


2010 

PRE-FORMAT (“NEW”) CHECK LIST 

FOR HELP 

201 1 

SYSTEM SETUP 

:GOSUB 300 

2012 

SYSTEM ON 

:GOSUB400 

2013 

DRIVE READY 

:GOSUB512 

2014 

DISK SELECTED 

:GOSUB 2121 

2015 

DISK INSERTED 

:GOSUB510 

2016 

NAME CHOSEN 

:GOSUB 2122 

2017 

I.D. CHOSEN 

:GOSUB 2123 

2018 

DOUBLE CHECK DISK 

:GOSUB2121 


vKiWV yv/ 
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2100 — 2112 


2100 


2101 


2102 


2103 


2110 


2111 


2112 


PRELIMINARIES 


Rem: You may wish to postpone this chapter. There is absolutely no reason why you can’t learn some SAVE 
procedures (3000) before you try these. Ifyou have“FRIENDLY FLOPPY” and a program, you havewhatyou 
need to run through the SAVE chapter. 


You will need to learn these procedures when you want to use brand NEW, BLANK disks. 


SUGGESTION: 


Learn to deal with the flashing red light 
before you get involved with sending com¬ 
mands to the drive. GOSUB9000. 


SUGGESTION: 


If you have a program in memory, I recom¬ 
mend you save it before attempting these 
procedures. You can “format” a disk with¬ 
out touching the program, but just in case. 
GOSUB 3000. 


SUGGESTION: 


If you do not own a BLANK disk you have 
no real need of these procedures. 2 If 
you want to learn about the command, buy 
some BLANK disks. GOSUB COMPUTER 
STORE. 



What it means and what it does 


Rem: You need not worry about mastering all of this information at this time. Anyone who can type comm¬ 
ands on the keyboard can “format a disk.” 


Before the drive can use a disk, it has to “set up housekeeping.” Each disk drive system, be it our 1541 or 
another COMMODORE® drive, or a drive from a totally different computer, has its own format on “sector 
arrangement.” See (233) for specifics on 1541 format. 


Suppose you have a friend who owns an entirely different system, say Brand X. You both go to the computer 
store and buy the same kind of diskette (single side, soft sectored, single or double density). So far these 
BLANK disks are identical. Each of you will have to “format” the disk. Your friend’s system may put 10 sec¬ 
tors on each of the 40 tracks. Whereas your system puts differing numbers of sectors on 35 tracks. See (233) 
and the Appendix. This is the reason why you two can’t trade disks. 


2 - Unless of course you already have a “beater"’ disk that you want to erase. 
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2113 — 2122 


2113 


2120 


2121 


2122 


Here are some of the things the DOS does when the commands to “format the disk” are executed. 


1) It erases the entire disk. 


2) It marks each of the 683 sectors (or blocks) with a starting mark and disk ID code in region 1 (235). 
Track and Sector numbers in region 2 (235) check points and timing gaps (to allow the drive to 
change modes between reading and writing operations) in region 1 and 4 (235). 


3) Sets up the directory (which will include the name of the disk (260).). 


4) Sets up the BAM (270). 


Looks complicated but fortunately for us the system does all the hard work. All we have to do is type a couple 
of commands. 


What you need and How to Get it 


Rem: To complete this chapter you’ll need.3 things, a DISK to format, a Name for the disk, and an ID code. 


The DISK may be BLAN K. (A brand new one, just home from the store), or an old one containing information that 


can be sacrificed (erased). 


The NAME 


The name may contain up to 16 characters. 
If you try for more, the system will truncate 
(chop off) those that it cannot use. 


Exactly 16 characters are reserved in the 
Directory header for the name of the disk. 

You will gain nothing by using shorter names. 



The name you choose cannot be changed laterwithout losing the contents of the disk. (If this is merely a test 
run, anything will do. The name is easy to change if you don’t care about the contents). 



CAUTION: You can’t change the name without 
losing the contents of the disk. 






(Continued) 
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2122 — 2123 


2122 (Cont’d) 



does not save space 


may use graphics characters 


may use all blanks 


O G^~will be truncated. 


2123 ID CODE 


Use exactly two characters. If you try for 
more the system will truncate. If you use only 
one, weird things happen. 


The ID code you choose will be written on 
each of the 683 blocks on the disk. You will 
NOT be able to change the ID code without 
erasing the entire disk. 



Each disk you use should have its own ID code. The DOS checks the ID code whenever it reads a sector. An 
error condition results when it fails to match ID codes. That may sound bad at first but can save your bacon. 
If you have to interchange disks frequently to get a job done, it’s not too hard to get them mixed up. If two 
disks have the same ID code the drive can get mixed up. Precious files and/or programs could be lost. 


To prevent foul-ups, give some serious thought to ID codes before you get into a mess. To simply learn the 
mechanical procedures, pick any old code. (See also 264 - Directory assistance). 


(Continued) 
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2123 — 2212 



2200 PROCEDURES 


Rem: This section is strictly a “how to.” If you are not comfortable with that sort of thing, you may want to go 
through section 2300 first. Nothing in that section will get you into trouble if you pay attention. On the other 
hand, if you would rather “do it” first, then read about it, go on with this section. 


2210 HOW to “format” a NEW DISKETTE 


Rem: There are several ways to end up with a formatted disk. We’ll go through one method in detail. It is not 
the easiest but it will give you more experience. 



2211 Perform PRE FORMAT CHECK (2010). 

2212 Type: OR EH 1 3 3 1 . 5 


Looks like nothing has happened, doesn’t 

it? The computer just says “ready” and 

flashes it’s cursor. OPEN15,8 15 



(Continued) 
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2212 — 2215 


2212 


2213 


2214 


2215 


(Cont’d) 


OPEN1 5,8,1 5 
(again) 



If you feel like a little “adventure,” retype 
the command inm (2112). Notice the error 
message. (When you write your own pro¬ 
grams, you must avoid opening the same 
file more than once). 


Type: CLOSE 1 5 


CLOSE15- 





Again it looks like nothing has happened. 
Now, retype the command in (2212). 


OPEN15,8,1 5 
(again) 


When you hit return in 2212, you opened a 
communication link to the drive. It is now 
ready to receive commands and act upon them. 






THIS IS ABSOLUTELY THE LAST WARNING 

Before you hit return on the next command, 
be darn sure that disk in the drive is BLANK 
or that you want to erase it! 




^Sorry to bore you with that again, but better to be""*^ 
bored than to lose precious software. A 




0 


When you hit the RETURN after the 
next command, all sorts of things will happen. 
The red light will come on and the drive will 
make NOISE. Be ready to wait. It has lots of 
stuff to write on the 683 sections it’s going 
to form. (It only takes 80 seconds or so - time it.) 



/V 

0 \ CHATTER! 5 

). CHATTER! Whirr... ' 

f Purr..., Whirr... 7 

-J* 


58 





0 J // 


2216 — 2225 


2216 Type: 


Your disk name Your I.D. code (2 characters) 


PRINT#1^ 


HEN0 : 


J_8' 


2217 If all goes well, (and it should as long as there’s a disk in the drive), when the red light goes out and the drive 

gets quiet, the disk has a format. It can now be used for your programs. 


2218 


2219 



If the red light is flashing ,type IS 


If you get a “syntax error” your wedge isn’t active, 
go to 9000. 


2220 

2221 

2222 

2223 

2224 

2225 


Check it out 


Rem: Let’s see what we’ve accomplished. 


If your wedge is active, GOTO 2224 


If you have a program in memory that you cannot sacrifice, read without doing 



You should see something like this. 

THE NAME 

I 

664 BLOCKS FREE. j 

The DOS version & format type.(automatic) 


/ 


THE I.D. CODE 


_ This is“FRIENDLY FLOPPY’O 
^ as a baby. 

N- 7 
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2226 — 2231 


2226 Time out for arithmetic. 


683 blocks on the disk 
-664 blocks for your data and programs 

19 blocks for directory and BAM. 

See 0270 for more details. 


2227 Rem: At this point you may wish to learn to SAVE, if you haven’t already done so. The next section gives some 
shorter commands for formatting disks. They are definitely worth looking at. The section after that (2300) 
will give you a feeling for disk commands. 


2230 Shorter Ways 


Rem: I very cleverly used DISK NAME and ID (at the risk of insulting your intelligence. You are to sub¬ 
stitute your choices.). 



2231 A three step process is used in each of these. 


1 st: Open the command channel to the drive. 
2nd: Send the “New” command to the drive. 
3rd: Close the command channel. 


OPEN15,8,15 
PR! I NT# 15, "NE 
CLOSE15 

or OPEN 15,8, 15 
PEINT#15,"NE 
CLOSE 15 



or OPEN 15,8, 15 

PRINT# 15, "N-DISK NflilE, ID 
CLOSE15 


The 0 can be omitted in 
a single drive system. 
(See 150) 


All of these can be used in program mode as well as in direct mode. If you do use in a program be sure to put 
a strong user warning in front of them, directing the user to change disks. Any disk that contains a program 
to “format” should have its write protect notch covered. 
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2232 — 23 73 


2232 These one-line commands will do the same thing as the first two steps of the commands 

above. 

OPEN15^8/15/"NEWS : BI SK NAME. ID" . . 

or OPEN 15 > 8 * 15 >" N0: DI SK NAME 
or 0PEN15;8; 15; "N : DISK NAME/ 


/ ID" 
ID" 


Follow each with: L-LUC'h 1 0 


2233 DOS 5.1 «WEDGE» COMMANDS 2 

@N : DISK NAME/ID 



2300 ANALYSIS AND EXPERIMENTS 


Rem: The “analysis” sections pick apart the commands used to “format a disk” They are “read - not do” sec- 
sections. 

The “experiment sections are safe. In fact, you don’t even need a disk in the drive to do them. 


SUGGESTION: If there is a disk in the drive, take it out in case you are overcome with an uncontrollable urge 

to type. 


rr 

2310 ANALYSIS of OPEN15,8,15 

tt t 

FILE NUMBER 
DEVICE NUMBER 
CHANNEL NUMBER 


These numbers need not be the same. 
Many people find it simply easier to do so. 


<P*~ 

> 0PEN1,8,15 ) 

OPEN10,8,15 - 

OPEN92,8,15 
i All work as well. 


3 


2311 FILE NUMBER-Strictlyspeakiriganynumberfrom 1 to255canbeusedbutsticktothoselessthanorequal 

to 127. (128 through 255 are used for printers that don’t have an automatic line feed after each return). 


231 2 DEVICE NUMBER - The number 8 is used to address an unaltered drive. Recall that 8 was used in LOAD com¬ 

mands. You could use OPEN 15,9,15 if you wanted to open a link to a second drive. OPEN 15,4 opens a com¬ 
munication link to the printer (160). More about this later. 


2313 CHANNEL NUMBER - In general any numberfrom 0 to 15 inclusive can be used in an open statement, but 


© is the command (or error) channel to the disk drive. 
ALWAYS use 15 to send commands to the drive. 


2-14 are for data files and 0 and 1 belong to the DOS. 
See (5310) for more details. 


2 - You can use NEW or NEW0. 
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2314 — 2327 


2314 The word “OPEN” is simply a BASIC command used to open a communication link between the computer 

and any peripheral device. 

2320 ANALYSIS of the PRINT# 


Rem: We’ll build this one a piece at a time. 

PR I NT# 15, " NEWS : DISK NAMEID 



2321 


2322 


PR I NT# sends output to any peripheral device, including 


NOTE: PRINT# cannot be abbreviated as ?# no matter how 
much we’d like it to be. 


the screen (2340). 



everything. 


1 5 .* links the PRI NT# command to a previous open command. The number used is the FILE NUMBER or 
1 st number after the world OPEN. (The system remembers the device number and channel number that cor¬ 
respond to that file number). 


ex. OPEN1 ,x,x OPEN95,x,x 

PRINT#1,... PRINT#95,... 

CLOSE1 CLOSE95 


2323 11 NEW0 • is the beginning of the “command string.” 


Otherwords(likeCOPY, SCRATCH) signify other processes (4000). The word NEW(orsimplyN) “formats” a 
disk or clears out the directory of a disk. It ALWAYS results in 664 free blocks. 


^HANDLEWITHCARE 


2324 D I lift. NR ME } I D 11 have been explained “ad naseum” (2122 and 2123). 


2325 Short cuts; N is short for NEW. 

0 can be omitted in single drive systems (0150) and (4134). 


2326 


PUNCTUATION: All punctuation is required as shown except for the last quote mark and then only if the rest 
of the line is blank. 



does it all and closes 
the channel for you. 


2327 


Don’t worry too much about CLOSE15 yet. It is extremely important when you program. In direct mode, when 
files are not involved, the woret that will happen is a “?File Open Error'’ message. 
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2330 — 2333 


2330 EXPERIMENTS with OPEN 


Rem: All you need for this section is your computer and monitor, if you really hate to type, power up your drive 
and have “FRIENDLY FLOPPY” handy. 


2331 Type: (the following program) 

NEW if other program in memory. 


DOS 2.6 «wedge» DOS 5.1 

-0RD"0PEN EXP",8" or /OPEN EXP 


OR 



.^Tobe extra safe - remove “FRIENDLY FLOPPY” % 
C, from drive after LOADING. J 


5 REM###UPEN EXP 2 ^-If you are typing skip the REM and use ? to F :: ’R I NT 


10 FORI=1TO15 
20 PRINT"WILL OPEN "I, 
30 OPENI,8,I 
40 FEINT "OPEN 11 
50 NEXT 


This line will OPEN files as in lines 
earlier sections. 

Yup! You can use VARIABLES in 
open statements so long as they 
are defined. Line 10, of course, 
takes care of this for us. 


Rem: Lines 10,20 and 50 are just BASIC programming lines. If you don’t understand them, you can do these 
experiments anyway, but you’ll find the last few chapters very difficult until you improve your BASIC. 


2332 


2333 


Type: RIJN and don’t laugh when you see the error message. This ain’t baseball. It was supposed to happen. 
How many “files” can you open. (Correct answer is 10). 


Add this line. Sorry you’ll have to type now. 
type: JSULJJSEI and run again. 

See the Difference? All 15 are open with 
no error message. Hmmm! 



i 




Real Beginners Only: 

Type: 35CLOSEI and hit RETURN 
then Type: RUN andhitRtTURN 

;r 


fiie number >127 

l If 

2 - PRINTER People. The double space listing was gotten with OPEN200 .• 4 : CMD200 ■ L I ST 
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2334 — 2342 


2334 Change line 10 to read: 

10FGRI-0TQ1 and Run. Now we have another error message. If you figured out why, give yourself a 
gold star. If not, re-read (2313) to the bitter end. 

2335 Change line 10 to: 

1 0FOR I :r Tj TU -Play with this for awhile. What is the largest number you can put there before you get 

an error message? What’s the smallest number that produces that error message? 

2326 Play with the numbers in line 30. Try this for a start: 

30OPEN1 ft .• I with and without line 35. 

30OPENI,I,I 

etc. 
etc. 

2337 Note: I n practice, the type of files in use and the requirements of the peripheral devices that may be on, can 
can limit the number of open files that will function. 

2340 EXPERIMENTS with PRINT# 

Rem: Thissection involves yourcomputerand monitoronly. Although I’ve used only direct modecommands 
you can use these in programs. (You probably won’t want to, however). We are going to explore a really dumb 
way to put some words on the screen. Our objective is really to explore peripheral device command sequences. 

234 1 Type: fl p E N 1 4 - 3 

If you get a “file open” error message, Type: UL.U'oE 1 4 
and then repeat j'“|PEN | 4 , :‘ :: 1 

2342 Type: PRINT#! 4, ,! FLOPPY" 



Wasn’t that exciting? The word “FLOPPY” appeared on the screen. 


You’re right 


OREM 14,3 

PRINT#14,"FLOPPY" 


PRINT"FLOPPY 1 


type: PR INT#14, " 

Repeat as often as desired. 
Compare to: PRIMF" — 
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2343 — 2344 


2343 Type: CLOSE 14 

Now try F'RINT#14, "_" 

Obviously the file is not open because we closed it in (2343). 

2344 Explanation: 

Device Number (3 for screen, (160). 

j 

OPEN 14.« 3 (the screen requires no secondary address, disk drive does. ex. 

| OPEN1 5,8,1 5) 

file number 

2 PRINT#14 j- 

t 

file number - linked to device and secondary address numbers in the OPEN statement. 2 

CLOSE14 

t 

file number - links to parameters in OPEN statement. 


/-\ 


Study the genera! formats 
on the next page. Review 
as necessary. 



2 - many PRINT# statements can be included between an OPEN statement and its CLOSE. 
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2400 


2400 General Formats to “FORMAT” 


DOS 2.6 


□PEN fn, jV,15 

PRINT# fn, "N dridiskname, id " 

CLOSE fn 


or 


OPEN fn,dv, 15, "Hdr s diskname,id" 

CLOSE fn 


parameters: 

dr; drive number C0 or 13 

use 0 in single drive system 

fn -file number Cl - 1273 

dw device number [8-113 

8 -for unaltered drive, 

9,10,11 -for others 

15 channel number(secondary address) 

15 required to send commands to drive 

N N = NEW command 

diskname 16 character max 

id use exactly 2 characters 

<WEDGE> DOS 5.1 

&4dr;disk name, id 
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3000 


3000 SAVE 


CHAPTER DIRECTORY 





3010 

PRE SAVE CHECK LIST 







For Help: 

3100 

PRELIMINARIES 


3011 

System Set Up 

: GOSUB0300 

3110 

What’s going to happen 





3120 

What you need and howto get it 


3012 

System On 

: GOSUB0400 

3125 

Legal program name 








3013 

Drive Ready 

: GOSUB0512 

3200 

PROCEDURES 





3210 

SAVE - NORMAL 


3014 

DiskSelected 

: GOSUB31 20 

3220 

SAVE - SPECIAL MEMORY 





3230 

SAVE - with REPLACE 


3015 

Protect Notch Uncovered 

: GOSUB0221 

3240 

SAVE - «WEDGE USAGE» 








3016 

Program in Memory 

: GOSUB31 24 

3300 

RELATED OPERATIONS 





3310 

VERIFY 


3017 

Disk Inserted 

: GOSUB0500 

3320 

BACK UP 





3330 

Backing Up to Tape 


3018 

NameChosen 

: GOSUB31 25 

3340 

LISTING 





3350 

PROBLEMS with REPLACE 





3400 

GENERAL FORMATS 





3100 PRELIMINARIES 

3110 WHAT’S GOING TO HAPPEN 


You’re in system’s physical motion to the SAVE command is similar to its raction to LOAD. 

When the SAVE command comes thru, the red light goes on, the drive makes noise and the computer says: 


( 

SAVING PROGRAM NAME 


Meanwhile, the DOS and controller are very busy. The drive has to do all of the following: 
Make sure a disk is in it. 

Make sure the write protect notch is not covered. 

Check the directory (260) to see if there is room for another entry (only 144 allowed). 
Check the directory to make sure that the name chosen is not already used. 

Check BAM (270) to make sure there is room for another program block. 

Write the block and record location. 

Check BAM for another block, record location and write until finished. 


If any of the tasks above cannot be completed the drive will let you know by flashing its red light. (9000) 


If all went well the red light goes out, the drive gets quiet and the computer, of course, says READY. If your 
WEDGE is active you’ll even get a message from it. 

(Continued) 
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3110 





3110 — 3123 


3110 


(Cont’d) 

It may seem like you could take a jog around the block while all of this is going on. Try it. If you can beat it, quit 
fooling with these computers and go to the Olympics. 


r 




3120 What you need and how to get it 



If you just got a box of BLANK disks, they have not been formatted (250). Before a BLANK disk can accept a 
SAVE command it has to be formatted. If you need to format a disk, GOSUB 2000. 

If you ae not sure of the development stage of your floppy, you can do either of the following. 

(a) If yourWEDGE isACTIVE(1230), simply ask to view the directory. TYPE: or „>$ .Ifyourdisk 

has a format, you’ll see the directory. If not, you’ll hear a “chatter” from the drive and the red light will 
flash. TYPE: @ 


(b) If your WEDGE is NOT ACTIVE ( (§ results in syntax error), you can go ahead and try the SAVE. If your 
disk has no format, you’ll have to deal with a flashing red light, but you won’t hurt anything. 

(GOSUB 9000) 



31 23 ROOM on the disk for your program. 


If you have a “baby floppy” that has just been formatted, you’ve got more room than you need. You need less 
than 160 blocks free to store a BASIC program that takes the entire memory of the C-64. 


Ifyourdisk has been used for awhile, the simplest thing to do (if you don’t want to check the directory your¬ 
self) is try the SAVE, if the disk is full the system will let you know. (Flashing red light(9000)). 
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3124 — 3125 


31 24 A PROGRAM TO SAVE 


If you are simply trying to learn procedures or checkout equipment, use an exciting program like the one be¬ 
low and SAVE it with an exciting name like “XXX.” 


10 PRINT“LEARN TO SAVE” 



You could also simply load a program from tape or disk (1000 for disk load commands) and save that one. 


3125 A LEGAL NAME 


Last but not least, your program needs a name. For a successful 
SAVE to DISK, a name must be specified or a “file name omitted” 
error will result. 2 


The name must be unique (not already used on this particular disk). 



The name can be up to 16 characters in length. You can type more but extras will be truncated, (chopped off). 
Theoretically you can use any characters you want. In practice, avoid the following: 3 


$ which is used for the directory. Instead of the usual error message, you maythinkyou haveaSAVE 

when you don’t. 

9 orany numberof?’s.Thisisyourwildcardsymbol(1340). Depending uponthe location of your pro¬ 
gram you may never be able to load it again without scratching (4500) half the programs on the disk 

$ orany name ending in*. This is the pattern match symbol and can cause problems similar to those 

above. 


@ |ljj : y y : are all WEDGE command signals and can cause trouble when your 

WEDGE is active. 


2 - You can omit the NAME on tape but NOT on disk 

3 - This may not be an exhaustive list. 
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3200 — 3224 


3200 PROCEDURES 


Rem:TheSAVE proceduresaresosimilartothoseforLOADsotheexplainationsare not nearlysodetailed. 
If you need more information refer to the LOAD sections noted. 


3210 


3211 


3212 


SAVE - normal memory 2 


Perform Pre SAVE check 


Type: S R V EE " * X X X X " * 


Name of program. 
Substitute your choice. 




Device Number 
If omitted, the system 
will try to save to tape. 

Hit RUN/STOP and start over. 


XXXX stands for the name of the program. 
“PROGRAM NAME” 
was not used since there is already 
one on “FRIENDLY FLOPPY” by that name. 


3213 If the red light is flashing, GOSUB 9000. 


3214 If all is well, note program name exactly for future reference. 


3220 SAVE - Special memory 3 


Rem: In order to load a program to special memory it must have been saved in the following manner. (If you 
are wondering if your program needs this, it probably doesn’t! If you have to ask, you can’t afford it.). 


3221 


3222 


3223 


3224 



If all is well, note name for future reference. 


2 - If you are saving an unfamiliar program and it won’t run properly after a normal save, try (3220) 

3 - Programs saved in this manner may require special memory load (1260). 
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3230 


3230 SAVE with REPLACE 


Rem: To the die-hard programmer, revisions are a way of life. Disks, no matter what their capacity, would 
soon fill up if every version needed its own blocks and directory entry. DOS comes to our rescue with two 
options: 


1 SCRATCH (4500) then SAVE - Safest 


2 SAVE with replace — Dangerous 


Of the two, the SAVE with replace is the most convenient, but on rare occasions will lose a previous program 
in the process 2 . (3350) 


Essentially the “save with replace” does exactly that—replace an old version of a program with a new one. 
The new program need not even be related to the oid one. After execution the directory looks about the same 
as it did before. The new version’s name may appear in a different place and any change in length will be re¬ 
flected. The directory notes the new track and sector starting point. BAM marks the old blocks “free” and the 
new ones “used.” (260-270) 





CAUTION: The old version of the program 
named in the commands is GONE!!! \ 


a/ww, 

CAUTION: Problem with the DOS wiil na use A 1 



CAUTION: Problem with the DOS wiil cause 
on rare ocassions loss of a program 
unrelated to those involved in the . 
replace command (3350) - 


^ icijicu/C isUi 1111idiiu (ooou) a, / \ CTf —^ 

MM A k A/V M a a a v\ 

// v |/yv^H 



Rem: This option will be described in detail in spite of the DOS problems with it You may wish to read (3330) 
before you test these commands. 


2 - this is a DOS problem. See COMPUTEI’s GAZETTE, October 1983, “DOS WOES,” Page 14. 
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3231 —3233 


3231 Perform Pre Save Check up to 301 8. This time you need the exact name of the program to be replaced. (The 

disk you select must of course contain that program.). If you are ready, GOTO 3233. 


3232 If you are not sure of the name of the program or whether or not the disk in the drive contains that program, 
read on. 


If your WEDGE is ACTIVE (1233), will show you your directory. 


If your wedge is not active here are some options: 

(a) SAVE the version currently in memory under a bizzare name. LOAD and LIST directory and decide 
what to do. When you want to get rid of the extra version, see SCRATCH. 

(b) SAVE under the name you think is there. If the entry is on the disk you’II have to deal with the flash¬ 
ing red light (9000). If it wasn’t on the disk your program is now saved. 


(c) Go ahead with the save with replace option. This time the error condition will result if the program 
is not on the disk. You can then save normally. If the program was on the disk, its been replaced by the 
one in memory. 

Rem: If these things are happening to you, it’s time to get organized (see 262) 


k 




CAUTION: Note these ^ 
on the preceding page. 


\ MKA aA ^ 
v '' v v 


3233 Here is a list of the commands. XXXX is the name of the program on the disk to be replaced by the one in com¬ 

puter memory. The is the signal. The colons are required. 


Normal memory “save with replace” 


SFlVE M @:mX%8 


SflVE"@0:XX vy " 

SflVE"@0 : XX 


commands. 2 

The 8’s are the device number that signals “disk drive.” 

This 0 is the DRIVE number. BEST CHOICE in any case. (3360) 

These l-J are the secondary address that signal “normal memory” 
and are optional. 

0 


t-This is the drive number and is optional in a single drive system (3360) 


(Continued) 

2 All equivalent (3402) 
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3233 


(Cont’d) 

Special memory “save with replace” commands/ 


3233 — 3242 


SHVE"@:XXXX".,8, 1 
SflVE"@0:XXXX",8, 1 


These 1 ’s are the secondary address that signal “special memory” 
and are REQUIRED or a normal memory SAVE will take place. 


Drive number (see preceding page). 


3234 After you type your chosen command, the system will respond as with the usual SAVE command. The“@:” or 

“@0” will not appear in the directory. 


3235 If the red light is flashing, GOTO 9000 



3240 SAVE USING THE WEDGE DOS 5.1 Supporting DOS 2.6 


Rem: Allow me to dispense with “step-by-step” bit. To the best 
of my knowledge the wedge does not include a command for a 
special memory save. 




NOTE: “ +-• ” is the left arrow key at the upper left hand corner of your keyboard—not cursor left. 


3241 


3242 



'Hi! ! XXXX invokes the replace option and is equivalent to normal saves in (3233) 



Rem: DOS 5.1 will initiate the save operation and even read the error channel for you. When you see 


80.. OK.. 00,00 


the job is done. 


3 Both equivalent (3402) 
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3300 — 3312 



3300 RELATED OPERATIONS 


Rem: FLOPPIES are delicate. Even if you take care of them “by the book” things can go wrong. Here are some 
of the things you might want to do after you save a program 


3310 VERIFY 


Rem: The VERIFY command causes the system to compare a program stored on a disk in the rive with the 
program in computer memory. The “OK” appears only when the two programs match BYTE by BYTE*. 


Rem: The probability of an error after a save to disk is much much lower than after a save to tape. You may sim¬ 
ply want to use VERIFY to see if you’ve saved a revision. 


Here’s the command. XXXX is again the exact name of the program you wish to verify. 



3312 After you send the command the drive goes to work. (Solid red light and noise). As the process is completed, 

the computer says: 


r —- 



A 

SEARCHING FOR XXXX 

VERIFYING 

OK 

READY 

iQ* 

or 

SEARCHING FOR XXXX 
VERIFYING 

VERIFY ERROR 

R^ADY 


V._ 


k--- 

_ J 


* LIMITATION: Programs saved from an expanded VIC-20 may not verify when LOADed to a different expansion. Notto 
worry, they’ll run so long as the program nuns on both. 
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3313 — 3340 


3313 If the red light is flashing GOTO 9000 



3320 BACK UP COPIES 


Rem: It is wise to make BACK U P 2 copies of important software. A power outage or blown fuse can damage a 
disk. Even a single messed up BYTE can ruin a program 3 . 

Most Copyright covered software at least allows the user to make a back up copy for personal use. 
Machine language programs require methods beyond the scope of this text 2 . 

The easiest way for the normal user is to simply SAVE on two different disks. 


3330 BACK UP on TAPE 


It wouldn’t hurt to back up really important programs on tape if you have the equipment. Programs that don’t 
involve disk files and operations can be run and worked on even if your drive goes “down.” 


3340 LISTING 


If possible keepaLISTing of important programs. If you have a lot of long programs, a PRINTER may be your 
next investment. (If you already have a printer, own stock in a paper factory and use the following commands 
in direct mode.) 



0F'EH4,4 

CMD4 

LIST 

PRINT#4 
CL0SE4 


2 “For want of a nail.. .the kingdom was lost.” 

3 - Programs that will copy an entire disk are available. Use DUPLICATE if you have a dual drive system. (0150). 
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3350 — 3360 


3350 The PROBLEM with the REPLACE OPTION. 


DIRECTORY 

XX Program A 
YY Program B 


When we ask to load A, we get B. It seems that DOS thinks A is located 
where B is located. The problem occured during a save with replace 
of B. B operates normally. 


After using the replace option hundreds of times with no problem, I’ve found that I’ve lost at least two programs 
Each appears in the directory with the proper length indicated. Unfortunatelyall attempts to LOAD eitherof 
these result in LOADing the program that follows(as shown in the directory). Other 1541 owners report the 
same problem 2 . 


Although the “replace option” seems to work beautifully 99% of the time, I have sadly dispensed with its ser¬ 
vices. During program development stages, I use a “working disk” and use a regular SAVE version number 2 . 
When the program reaches the “using” stage I SAVE it on a “Final Version” Disk As the “Final Version” is re¬ 
vised, I SCRATCH (4500) the old final version and SAVE the new final version. From time to time I clean up the 
“working disk” with SCRATCH, too. 



WORKING DISK 


FINAL VERSION DISK 

e.g. 

GB 1 


GRADE BOOK 


GB 2 


_ 


GB 3 


_ 


GB 4 


_ 


GB 5 


_ 


GB 6 


_ 


GB 7 




GB 8 



The Bottom Line: 

BACKUP... BACKUP 

...BACK UP... BACKUP... 

BACKUP... BACKUP... 


3360 AFTERTHOUGHT 

Rem: Having just suffered the loss of another program 2 1 figured I’d better add an afterthought. To be hon¬ 
est the rest of this chapter is with the Typesetter and fixing the chapter from scratch will delay this text ano¬ 
ther month. 

I cannot recall for sure, but I have the uncomfortable feeling that this loss was not the result of the replace 
option (3350). It may have occured after a SCRATCH that left room for a program followed by a SAVE that 
would fit. I checked all disks that I own for duplicate ID codes (2123) and confess that I possess such a pair. 
Neither were involved in the process. 

Here are the procedures 3 I’m using when I have to be safe. 

1 st If disk has been changed, INITIALIZE (4300) 

2nd Use longer command forms shown below. 

SAVE“0:program”,8 or 0 -.program 

3rd Make back up copy immediately. (I scatter my back up copies over a multitude of diska It makes 
a program harder to find but decreases the probability of the same program being lost twice). 


I’m even thinking of saving the same program twice on the same disk unless they are simply development 
versions. (I don’t really care if version 8 replaces version 7. It was going to anyway). This method will make 
for longer directories but seems to save some hassles. 


2 - Fortunately I had a back up. I try to practice what I preach. 

3 - Somewhere in my faithful periodical* reading somebody mentioned drive number (0150). 

* - Primarily “COMPUTE!” which is currently running a series on files. Too late for me but thank goodness they are con¬ 
firming items you’ll encounter later. And, “COMPUTERS GAZETTE" which has come a long way in six months. I re¬ 
commend both of these without reservations. 
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3400 


3400 GENERAL FORMATS 


DOS 2.6 

SAVE "dr :program",sa 

SAVE ,, @o f r : program " , tfv, sa 

SAVE with replace - NOT recommended 


parameters: 

dr: drive number C(5 or 1] 

use 0 in single drive system 

program exact name of program - required 

16 character maximum 

avoid wild card, pattern match, 

and <wedge> symbols 


dv device number C8-113 - required 

8 for Linaltered drive, 
9,10,11 for others 


sa secondary address [0 or 13 

omit or Lise 0 for* normal SAVE 
1 for special memory’SAVE 


<WEDGE> DOS 5- 1 

*-dr: program Normal SAVE 

*-&dr: program SAVE with replace - NOT recommended 

dr: as above 

d v = 8, sa = 0 
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4000 — 4010 


4000 


4010 


OTHER COMMANDS 


Rem: Descriptions of other commands that can be sent to the drive are given in this chapter. Although primarily 
a reference, this chapter deserves a 1 st reading before you continue to files. Be sure to cover the first section 
since all other sections follow the patterns set. After your 1 st reading take a look at (0070), (5000), (6200) and 
(6300). 

CHAPTER DIRECTORY 


involves the 
entire disk 


for specified 
data files and 
programs 


4100 

GENERALITIES 

4200 

NEW (New Use) 

4300 

INITIALIZE 

4400 

VALIDATE 

4500 

SCRATCH 

4600 

RENAME 

4700 

COPY (Simple) 

4800 

COPY (To append) 


Section Directory 

4X10 Purpose 
4 X 20 Command Sequences 

(DOS 2.6 and DOS 5.1 Wedge) 
4X30 Notes 


81 





4100 — 4123 


o 


4100 GENERALITIES 


Rem: (4100) refers to all sections in this chapter. 


4110 Purpose: In general, a command to the drive causes it to do something (format a disk, rename a program, 
etc). The purpose of the command is explained in this location throughout the chapter. 


4120 Command Sequences: The command sending procedures are the same for all commands. The abbrevia¬ 
tions shown below will be used throughout the chapter. DOS 2.6 provides you with two options that can be 
used in both direct and program modes. If your «wedge» is active, you have a 3rd option in direct mode. I wish 
the «wedge» worked in program mode but it doesn’t. 


Abbreviations: fn = file number. (5312) 

(any number from 1 to 127 may be used), 
dv = device number (0160) 

(use 8 for unaltered drive) 

(9 is the usual choice for the second drive) 

15 = channel number (5312) 

(15 is ALWAYS used to send “commands” to the drive), 
dr = drive number (0150) 

Command string: changes from command to command. Details in individual sections. 


4121 DOS 2.6 (option 1) Use option 1 when you wish to 

send several commands. 


OPEN fn,dv, 15 
PRINT#//?, “command string” 


PRINT #//?,“command string ” 

CLOSE fn 


4122 DOS 2.6 (option 2) 


OPEN fn,dv, 15, “command string” 

CLOSE fn 


Use option 2 when your «wedge» 
is not active and you wish to 
send one command in direct mode. 

Or combine with option 1 in program 

mode as is shown in COMMAND DEMO (6300). 


4123 «WEDGE» DOS 5.1 supporting DOS 2.6 


@ command string 


@ does all the work 
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4130 — 4210 


4130 Notes: Further explanations and limitations that apply to individual commands are in lines 4 X 30. The following 
apply to all of the commands in the chapter. 


4131 All commands in this chapter will cause an error condition (flashing red light) if there is no disk in the drive. 
(9302) provides an alternative. 


4132 All punctuation is required except the last quote mark. That may be eliminated when it is the last symbol in a 
line as it can be in BASIC PRINT statements. 


4133 All commands can be used “as is.” You will, of course, want to substitute your own names. 


4134 The use of the drive number, the 0’s, is ‘fuzzy 5 to say the least. Most commands seem to work fine without it. 

As I continue to work with the system, I’m leaning toward using it when I need to be safe. Better to type an ex- 
traO than to mess upsomething important (3360). If you are using a‘dual drive’ you must pay attention to the 
drive number. 


4135 As you practice these commands, remember that you havetoCLOSE before you can reOPEN. Indirect mode 

all you get is an error message (no big deal). Use the PRI NT# version since the file is already open or CLOSE f n. 
Be careful. Closing the command channel can make a mess. (See notes below). 


4136 Programmers note: If you are debugging a program that involves data files and the program stops (error or 
run/stop) follow the procedures in (6253). Close data files before you close the command channel. 


4137 Programmers note: In the programs in the following chapters, notice that the command channel is OPENed 
at the beginning. Follow the pattern “first open, last closed.” Your system will get terribly confused if you CLOSE 
15 2 before the data channels. The drive will think they are closed, your program will think they are open. I think 
this may be why I’m getting 70-no channel after I use wedge commands during an interupt. This idea requires 
a bit more study and experimentation before I can say for sure. 


4138 “COMMAND DEMO” (6300) shows most of these commands in action. You can safely use it before complet¬ 

ing (5000), (6100) and (6200). 


4139 In each case, the entire word can be used in place of the single letter shown. 


4200 NEW (new use) 


4210 Purpose: The NEW command used to completely format a BLANK disk (2000) has a short form that can be 
used to simply erase the directory and make BAM think that all 664 blocks are free. The process is much 
quicker. DOS does not change all the ID codes and a lot of the rest of the stuff it writes when a BLANK disk 
is formatted. This form of the command turns an old, mature floppy back into a‘baby’(0250). The ID code 
is retained. If you. want to change ID codes you have to use the methods of (2000). 



2 - The file number of the command channel. 
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4220 — 4310 


4220 


4221 


4222 


4223 


4230 


4231 


4232 


4233 


4300 


4310 


Command Sequences: (N is short for NEW) 


DOS 2.6 (option 1) 

yourchoice 

OPEN15,8,15 / 

PRI NT#15,"NO : DISK NAME" 
CLOSE 15 

I_I 

command string 




thefirst number in each lineisthe 
file number (4220). 


\r 




DOS 2.6 (option 2) 

OPEN 1 5 ,8 , 15 , " NO :DISK NRME " 
CLOSE 15 

«wedge» ONLDISK NAME 


Notes: (not used in COMMAND DEMO) 


Notice that the ID code symbols were not specified as they were in (2400). This is how the system knows it 
doesn’t have to do all 80 seconds worth of work. (2110) 


You can either repeat your old disk name or choose a new one. 


The “drive numbers,” the 0’s, can be omitted in a single drive system with this command. As I work with this 
system I’m leaning toward using them all the time or at least when I need to be safe. 


INITIALIZE 


Purpose: This command “loads” the directory and BAM into drive memory and must reset some parameters. 
It can be used to shut off both a flashing and solid red light (assuming there’s a disk in the drive). (4331). 


84 





4320 — 4420 


4320 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4400 

4410 

4420 


Command sequences: (I is short for INITIALIZE) 


DOS 2.6 (option 1) 

DOS 2.6 (option 2) 

«wedge; 

iF'EN 15, 8 , 15 

OPEN15, 8, 15,"I" 

@i 

■'RINT # 15 , "I" 

CLOSE15 



CLOSE 15 


Notes: (program sample in (6341).). 


It is critical to use this command after changing disks especially if there is a chance that they might have the 
same ID code. Your system will get terribly confused if it trys to use the directory and BAM information about 
one disk on a different one. If it sees different ID codes it knows a change has been made. 


The solid red light and procedures to deal with it are covered in (6253). 


The command strings above have not used the drive number. Use “10*’ if you prefer (4334). 


Specifically, how this command goes about shutting off red lights I have no idea. It must reset some DOS per- 
ameters. That might be an interesting topic to pursue if you care. If you’ll be satisfied with an over simplifica¬ 
tion, “it also makes the drive think it just woke up.” That idea served me very well for quite some time. 


Programmers note. Although not used extensively here, it would be a good idea to build this command into 
your programs whenever the user is allowed to change disks. 


It does not appear to close data files when a write operation is interrupted. (5352) (6253) 


VALIDATE 


Rem: I’ve not tested this command as thoroughly as some of the others. Some ideas for your own experimenta¬ 
tion are presented. 


Purpose: This is a house keeping command. In contrast to the NEW command (4200), VALIDATE spares 
your programs, properly closed data files, your disk name, etc. It disposes of unclosed files and frees up odd 
blocks that may be left usused when a shorter program replaces a longer. 


Command Sequence (V is short for VALIDATE) 

DOS 2.6 (option 1) DOS 2.6 (option 2) 

OPEN 15.8.. 15 
PR: I NT# 15, "V 
CLOSE 15 


OPEN 15,8,15,"V" 
CLOSE 15 


«wedge» 7(4433) 

@V 






CAUTION: DO NOT use with this command if you think the disk may contain 
random files. (Files prepared with software of unknown structure^ 
(4431) 
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4430 — 4530 


4430 Notes: 


4431 Your user’s manual cautions you on the use of VALIDATE on disks that contain RANDOM files. I’ve used it 

frequently on the disk that contains RND SAMPLE. My records read back in the normal manner. I think they 
may mean that BLOCKS ALLOCATED but not used will be freed. To test this hypothesis you might try ALLOCAT- 
ING some blocks, viewing BAM 2 , sending this command and viewing BAM again. If you see a change, my hypo¬ 
thesis was correct. If not, it’s back to the “drawing board.” 


4432 The VIEW BAM test might be fun with a working disk Note initial blocks used, send the VALIDATE, check 
again. Experiment! 


4433 I have no documentation supporting the «wedge» command shown above. My drive makes the same noises 

for about 27 seconds as it does when I send the DOS 2.6 command. The same visable result (4334) shows up. 


4434 One visable result of the VALIDATE command is that the open file marks in the directory disappear. Try it with 

(6253). You may of course specify the drive number by using “VjZ)”(4134) 


4500 SCRATCH 


4510 Purpose: This command will SCRATCH (essentially erase) data files and programs. 



CAUTION: Upon execution data file and/or program specified is GONE!! 



4520 Command Sequences (S is short for SCRATCH) 


4521 DOS2.6 (option 1) OPEN 1 5 , S 1 5 

PRINT# 15.' "30 : FILE NR ME 
CLOSE 15 


V Use of drive number, 0’s, isoptii 
al but recommended. 


4522 DOS 2.6 (option 2) OPEN 15 .. 8.. 1 5 " 30 : I" ILE NAME 

CLOSE15 





4523 «WEDGE» OS : FILE NAME 


4530 Notes: (program sample in (6346).). 


2 - “VIEW BAM” is a program on your Test Demo Disk 
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4531 —4623 


4531 If you read the error channel (9000) after a SCRATCH operation, the DOS will tell you how many files were 

scratched. This is not an “error'’ condition, simply information. COMMAND DEMO (6300) makes use of the 
message. 


00, FI LIES SCRATCHED , NX0@ 

\ 

number of files scratched where the track number 
is usually located (9251). 


4532 Pattern matching and wild cards can be used to SCRATCH more than one file and/or program at a time. (1330) 

and (1340) methods apply. 


ex S : T E-4i wil1 SCRATCH ALL files and programs with names that start with TE. 

TEMP, TELEPHONE, TEST, etc will be SCRATCHED. 


c ; p* r** ‘r* J*j will scratch all files and programs whose names match. 
FIND, FEED, F2XD, etc. will be SCRATCHED. 


CAUTION!! Upon execution ALL programs and/or data files 
that match are GONE 2 . 





4600 RENAME 


4610 Purpose: (Guess what?!) This command will simply RENAME a data file or program. It is especially useful 
with data files when some sort of holding file is necessary. 


4620 Command Sequences: 


4621 

DOS 2.6 (option 1) 

OPEN 15, 8, 15 




PRINT# 15, "R0 : NEW NFl!* 
CLOSE15 

1E“0LDNAME 

4622 

DOS 2.6 (option 2) 

OPEN15,8,15,"R0 : NEW 
CLOSE15 

NAME=OLDNAME 

4623 

«WEDGE» @R 

; NEW NRME-OLD NAME 



2 - They are probably still on the disk but the elves can no longer get at them. (0270) 


87 





4630 — 4734 


4630 

4631 

4632 

4633 

4700 

4710 

4720 

4721 

4722 

4723 

4730 

4731 

4732 

4733 

4734 


Notes: (program sample in (6345).). 


Future reference to the program or file must be made to its new name. 


“Error condition” occurs if NEW NAME is already on the disk or if OLD NAME is not. It works like 62-File not 
found in Load commands or 63-File exists in SAVE commands. 


My favorite trick is to forget which name comes first. You may see that it works like a BASIC statement LETX 
= A, (or X = A for short). X is given A’s value. “A” keeps its value. In the command above OLD NAM E, as a name, 
no longer exists. The file is still there, it just has a new name. 


COPY (simple) 


Rem: The next section deals with another use. 


Purpose: (Guess what?!). This command will COPY a data file (or program) on the disk under a new name. 
Unfortunately, in a single drive system (0150), the original and the copy are on the same disk. This command 
could be used for creating a holding file. It’s also of use when you want to change the location of a program 
or file in the disk directory. 


Command Sequences: (C is short for COPY) 


OPEN15,8,15 

DOS 2.6 (option i) p R j hj# 15 , " C0 : NEW FILE NRME=0 : OLD FILE NAME 
CLOSE 15 


DOS 2.6 (option 2) 


OPEN 15,8,15;"C0 : NEW FILE NRME=0 : OLD FILE WANE 
CLOSE 15 


«WEDGE» 


@C : NEW FILE=GLD FILE 


Note: (not used in COMMAND DEMO) 

If you need to make a copy of a program on a different disk, a LOAD, change disks, INITIALIZE (4300), and 
SAVE is the easiest. 

A Back up Program is your best bet if you want to copy an entire disk. 

I confess I haven’t tried this one with a relative file and I doubt that it will handle random files. 


I have not tried the “COPY ALL” program on the Test demo disk because I simply don’t have two drives. I “hear 
tell” that it works. Check it out if you have two functioning drives. 
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4735 — 4834 


4735 The command will, of course, cause an error condition similar to that described in 4632. 


4800 COPY (to append) 


4810 Purpose: This command is used to combine sequential datafiles. Essentially it sticks one file onto the tail 
of another. This form of COPY can be used if all you want to do is add to an existing file. 


4820 Command Sequences: (C is short for COPY) 


4821 DOS 2.6 (option 1) 

OPEN 15,8,15 

PR I NT# 1 5 , " C.0 •• NEW FI LE= 1 ST OLD .■ 0 : 2ND OLD, 0 : 3RD OLD , O : 4TH OLD" 
CLOSE 15 

4822 DOS 2.6 (option 2) 

OPEN15,8,15,"C0•NEW FILE=1ST OLD,@•2ND OLD,0■3RD OLD,0:4TH OLD " 
CLOSE 15 


4823 «WEDGE» 


: NEW FI L.E= 1 ST OLD, O : 2ND OLD .. 0 ■ 3RD OLD , @ ■ 4TH OLD" 


4830 Notes: (program sample in (6344). 


4831 Itsure would be nice if this relatively simple command could be used to append programs. Try it. All you get 

is the 1st old program. 2 


4832 Guess what?! An error condition results when.. .(4632) 


4833 Four files are supposedly the maximum that can be combined in any one pass. Several passes will be necess¬ 

ary if more than four are to be combined. The length of the file names seem to dictate how many we can do. 
It might be interesting to do with string variables for file names. Appropriate +’s and quotes would be required. 
(6232) should give you the idea. 


4834 COPY (to append) seems to want the DRIVE numbers (4134). 


2 -1 need to know more about how this system especially the C-64 works. “Machine language” of which I confess nearly 
total ignorance is my next port of call. 
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5000 DATA FILES IN GENERAL 


CHAPTER DIRECTORY 


5100 TYPES OF FILES 

5110 Sequential 
5120 Random 
5130 Relative 


5200 COMMON PROCEDURES (overview) 


5300 COMMANDS - GENERAL FORMAT & FUNCTION 

5310 OPEN 
5320 CLOSE 
5330 PRINT# 

5340 INPUT#& GET# 


5400 FILE DATA FORMAT 

5410 The Problem 
5420 Multiple PRINT# 
5430 Separators 
5440 PRINT# Punctuation 
5450 Numeric Variables 


Nature, Length, Advantages & Disadvantages 


FILES 





5100 — 5125 


5100 TYPES OF FILES 

REM: Your system can handle three types of data files: sequential, random, and relative. 

It also thinks of programs as files. In these chapters (5000 through 7000) we’ll use the word 
“file” to mean “data file”. 


5110 Sequential Files 

5111 The nature of a sequential file is exactly what the name suggests. A sequential file is written byte-by- 
byte from beginning to end. It can only be read in the same way — from the beginning, i.e. If you are 
interested in the 83rd entry, the system must read the first 82. 

5112 The length of a sequential file is limited only by the capacity of the disk. Practical considerations in¬ 
tervene. As fast as your drive is, it still takes time to read an entire diskette. 

5113 The primary advantage of sequential files is ease of use. If thetaskdoes not require a lot of skipping 
around, they are ideal. Programs that involve long series of data statements are prime candidates for 
adapting to sequential files. 

5114 The disadvantages are due to their nature. Editing is the primary problem. Adding to the end of a file is fair¬ 
ly simple (4800). To change a single entry within the file requires rewriting the entire file. Unless the user 
wants to enter all the data, it is easiest (if memory permits) is to read into an array, make the changes, and re¬ 
write the file. 



5115 A detailed discussion with specific command formats and sample programs can be found in 

Chapter 6000. 


5120 Random Files 


5121 The nature of a random file is also what the name suggests. With RANDOM FILES we can read or 

write to any block on the disk. There is even a way of accessing a single byte in that block. 


5122 The length of a random file is limited by the capacity of the disk and the skill of the programmer. To get the 
most into a random file the programmer must plan to pack each block to capacity. 

5123 The primary advantage of a random file is due to its nature. By specifying track numbers, sector num¬ 
bers, and positioning a buffer pointer, any byte on any block can be accessed. Random files are es¬ 
pecially good for disk related utility programs such as programs to make “back up” copies of disks. 


5124 The disadvantage is that you get what you pay for. A great deal of bookkeeping must be done by the pro¬ 

grammer. Two methods are usually used. An algorithm can be used to account for record numbers with 
their location (track, sector, position). A sequential file can also be used to store the ‘keys’ to the random file. 

c -j os A brief description of specific command formats and a sample program (of sorts) can be found in Chapter 8000. 


(Continued) 
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5125 — 5135 


# 5125 (Cont’d) 



5130 Relative Files* 


5131 The nature of a relative file is a random access file that is “relatively” easy-to-use. We can get at in¬ 
dividual records and parts of those records. 

5132 The length of a relative file is limited (but not very much) by a combination of factors including the 
length of each record and the number of available side sectors. (More details to follow). With relative 
files, we have a mere 160K bytes for our data. Part of a record can be on one block and the rest will be 
written to the next. i.e. We can span sections. 

5133 The primary advantage of relative files is in their hybrid nature. They are only a bit more complicated 
to use than sequential files but still allow random access to individual records. The DOS does all the 

hard work for us. They are ideally suited to most data processing tasks. (Mailing lists, grade books, etc.) 


5134 The disadvantage of relative files is again “you-get-what-you-pay-for.” The programmer must pay 
strict attention tofile data format and record structure. (It’s not as hard as it sounds). The length of an 
individual record is restricted to a maximum of 254 bytes. 

5135 A detailed discussion with specific command formats, operations, procedures, and sample 
programs can be found in Chapter 7000. 



*These are the “cat’s pajamas”, neat, cool, etc. (No, I’m not that old.) 
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5200 — 5312 


5200 COMMON PROCEDURES 


Certain operations are common to all file types. Since the details vary considerably from 
type to type, this section is simply an overview. We are just trying to capture the essence 
of operation not a mastery of procedures. 


5201 PROCEDURES OUTLINE: ALL FILE TYPES 2 


1st OPEN 
2nd Commands 
3rd CLOSE 


PRINT# to send commands and write data 
INPUT# & GET# to receive data 


5202 All file work requires careful formatting of data. The more complicated the file type, the 
more attention is required. Essentially, things work like they do on the screen. What makes 
it a little tougher is that you can’t “see” what’s happening. (5400) 

5203 An Error Channel Reading subroutine is included in all but the most elementary file using 
programs. The routines are similar to that discussed in the “Flashing Red Light” Chapter. 

It prevents the red light from flashing and protects your files when things go wrong. Some 
“error” conditions are actually necessary to successful operations. After you complete the 
next section, it would be a good idea to refer to the program in 9200 as a refresher. 

5204 Channel Monitoring is required in advanced programs that combine file types and make use 
of other peripheral devices. The activities in this text don’t cause problems in this area. We 
will use good programming practice by closing files as soon as possible after use. 


5300 COMMANDS - General Format & Function 

REM: Do not attempt mastery of this information at this time. Simply read and use as a 
reference later. If you did not take time for section 2300, you may want to do that as you 
go through OPEN and PRINT# here. (It’s perfectly normal, I hope, to feel like you are 
chasing your tail.) 

5310 OPEN 

5311 FORMAT: OPENfn,dv,ch “message” 

5312 PARAMETERS: 


fn = file number (range*: 1 to 1 27) 

Technically 128 to 255 may also be used, but such is not recommended. Save these for 
printers that do not have an automatic line feed after each carridge return or when you 
want to double space on those that do. (Example in note 2331.) 

dv = device number (range* : 8 to 11) 

Use 8 for an unaltered drive. (1 60) 


2 - Even program “files” are handled this way. The DOS does it for you via channels 0 and 1 when you LOAD and 
SAVE programs. 

* - Ranges specified are “inclusive.” i.e. Both 1 and 1 27 may be used for fn, etc. 


(Continued) 
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5312 — 5322 


5312 (Cont’d) 

ch = channel number (range* : 2 to 15) 

15 is the command channel (also error channel). In disk drive operations, it is used strictly 
to send commands to the DOS and receive information from the drive itself, such as error 
messages. 

2 to 14 are your data channels. They are used when reading from and writing to data files. 

0 and 1 belong to the DOS. It uses them when SAVEing and LOADing programs. Although 
you can sometimes get by with using them, it’s bad practice. 

NOTE: ALL of the above must be specified in disk related operations. 

“message” = STRING command to the drive (optional) 

Various forms are used depending on the task at hand and 
the type of file in use. (See appropritate sections in chapters 
on specific file types.) 

5313 FUNCTION: The OPEN statement “opens” a communication link between your computer 
and the drive (or any other peripheral device, for that matter). 

The file number is used by the system to keept track of the device number and channel so 
these need not be repeated in further statements (PRINT#, INPUT#, and GET#) until that 
file is closed. None of these statements will be “listened to” until the file is open. (“File not 
open error” results.) 

Once a file has been opened, it says open until specifically closed, either by the CLOSE 
command, 5320, (“File open error” results.) or another process. 


5320 CLOSE 

5321 FORMAT: CLOSED fn = file number. See above. 

5322 FUNCTION: If there is any data waiting in the buffer, 2 the CLOSE command causes it to be written to 
the file, and then ‘closes’ the link to the drive. In all write operations it is imperative that data files be 
closed by specific command. The INITIALIZE command (4300) may be used to close after read oper¬ 
ations. 




2 -Think of a “buffer” asa'holding pen’ or a To $e Filed’ basket. DOS will file the data when the buffer gets full or 
when told to do so by a command. 

* - Ranges specified are “inclusive.” i.e. Both 1 and 127 may be used for fn , etc. 
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5330 — 5333 


5330 PRINT# 

5331 FORMAT: PRINT# fn, data file list 

or 

PRINT# fn, command string 


5332 PARAMETER: 

fn = file number. 

Each PRINT# statement refers to the file number, 
first number, specified in a previous OPEN statement. 


5333 FUNCTIONS: 

In general, the PRINT# statement directs out put a peripheral device, 2340. In disk drive 
operations, PRINT# is used to write data to files, first format above, or to send commands, 
second format above. 

When the file number refers to a data channel (2-14), the “data file list” is structured like a 
normal PRINT to the screen. Variables (numeric and string), characters in quotes, and ASCII 
codes may be used. Punctuation works “normally”. (See 5400 for details.) 

When the file number refers to the command channel (15), the “command string” is 
structured as directed for specific commands. General drive commands are covered in 
4000. File commands are covered in chapters according to file type. 


NOTE: Unfortunately, PRINT# cannot be abbreviated as?#. Rats!!! See computer user's 
manual if you’re into abbreviations. 



_ w'jl ..m -- 

S* NOTE: While we’re at it, the comma must separate the file number and the data list or 


A V X A. a K. A . 

'O' _ OO 


T 

1 
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5340 — 5400 


5340 INPUT# and GET# 

5341 FORMAT: INPUT# fn , variable , variable , variable 

and 

GET# fn, variable , variable , variable 


5342 PARAMETER: 

fn - file number 

Each INPUT# and GET# statement also refers to the 
file number specified in a previous OPEN statement. 

5343 The variable list may include any legal BASIC variables or combinations of them. 

5344 FUNCTIONS: 

Both statements are “input” statements. In disk drive operations both direct the system to 
receive information from the drive. Both function similarly to the keyboard commands 
INPUT and GET. Unlike PRINT and PRINT#, neither of these can be used in direct mode. 

When the file number used in INPUT# refers to the drive, INPUT# will “fill” a variable until it 
“sees” a separator in the file. Care must be taken to co-ordinate PRINT# and INPUT# to 
insure successful file reading. (Details in next section.) 

GET# gets data byte by byte from the file. Numeric variables use requires extreme care. As 
with GET, string variables can handle anything, numerics only numbers. (Details to follow.) 



5400 FILE DATA FORMAT 


REM: Writing data into a file is no big trick since PRINT# works exactly like PRINT. Things get a bit 
more interesting when we try to get the data out. INPUT# works just like INPUT and that’s the rub. 
The INPUT# will fill the variable until it sees a separator, (comma or carridge return) in the file. The pro¬ 
cess is nearly automatic with INPUT in that the user types the “input” and hits RETURN. That’s when 
INPUT sees the separator. For INPUT#, the separators must be placed in the file by the programmer. 

This is best illustrated via examples. Again, mastery may not come on the first reading. The sequential 
file chapter does a lot more with this where you “fool around” with a sample program, 6260. 
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5 401 — 5420 


5401 


5410 


5412 


5413 


5420 


Example Set Up: In all of the following examples, assume we’ve opened a fictitious file. 
99 is the file number of that fictitious file. 


We’ll use: 

A$ : = "AAA" Fi!' 

•ill B$ 

:r.:: 

"B 12" 

Our goal: 

X$ = "AAR" Fir 

in V$ 


"B 12" 


The Problem 


PR I MT#99 A$B$ 


or 


puts HFIHB 1 2'':’" into the file. 


PR I NT#39 .• fi# i B$ 


* S 

p/ ^ ■ 

r This symbol will be used in J 

> this section to denote a carriage \ 

^ return. ^ .A , . 


k. i 


NOTE: A carriage return is placed into the file automatically after every PRINT# statement. 
NOTE: CHR$(13) is ASCII for “carriage return”. 

NOTE: The arrow is not really a carriage return to the system. It is merely a teaching device. 


INPUT#39, Y$ will fill ;K$ = "ARAB 12" 


Y$ will be filled with whatever follows the carriage return in the file. That causes a lot of 
trouble if there is nothing there. 

NOTE: INPUT# must be told when to stop filling the variable. 


Here’s how to get the job done. The programmer has these options: 

Use multiple PRINT# statements which will put 
the carriage return in automatically. (5420) 

or 

Put the separators into the data list in the PRINT# 
statement. (5430) 


Multiple PRINT# Statements 





puts 



into the file 

- the«-denotes the automatic 
carriage return after each 
PRINT#. 


D UT#99 ,% 

now fills . : vt ; 

:r.:: 11 Hj--jH " , “sees” the carriage return 


and fills V-'i : 

M .fc 1 ,::i 11 as desired. 
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5430 — 5442 


5430 

5431 


5432 


5440 

5441 


5442 


Put Separators into the File 

Set U $ ::::: UHR$ 1 (the ASCII code for carriage return) 

P RIH T # 33 , R$ C $ B$ puts Rftfi +:-E 12 •*- 

i t 

carriage return placed by C$ —' ^ automatic carriage return from PRINT# 

Now I Hl-'U I M : 33 .< 3$ .• V$ fills the variables as in 5420 above. 

3$ ::::: n HHR ,! HN .Li V$ !, B 12.'' as desired. 

Set L'i : ::::: UHk$ K 44 (ASCII code for a comma) 
or C$' -= : 11 . !i (equivalent to above) 

R R 1 NF #!:"• B .• li-i : L-$B$ puts fthli.. B into the file 

“comma” placed by C$ t— automatic carriage return 

I M P IJ i #ft ft .■ ! : v$ ; .< 3 t ! $ fills ^ !! HHH n .sees the “comma” 

and fills V-i 11 .B 1 !l as desired. 

PRINT# Punctuation: 

Punctuation in the data list of a PRINT# statement has the same effect as it does in screen 
PRINT statements. 

; separates variables in the data list. It is really only necessary to separate numeric 

variables. (See 5410.) If used at the end of a PRINT# data list, it will suppress the automatic 
carriage return. 

PR I MT#ftft ft$B$ .i puts RftftB 1 2 into the file 

t _ notice - no carriage return 

1 NPU ! #ft ft . 3$ > V$ will fill X$ with the above and everything that follows until it “sees” a 
comma or a carriage return. That will result in a “string too long” BASIC error. 


□ causes spaces in the file just as it does on the screen. 


PR 1M I $33 .> H$B$ puts HHM 

/N W. 


-causes spaces- 


B 12‘ft into the file 
_ L 


automatic carriage return 


IHPUT#93 , 3 $, V$ fills ::::: "Rfifi 


NOTE: Commas are just dandy for screen formatting but, direct use of commas in PRINT# J 
data lists, simply waste spoac 9 and do not act as separators for INPUT# statements. < 

Si_ 


■0-^-0^' 
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5450 — 5455 


5450 

5451 

5452 

5453 

5454 

5455 


Numeric Variables 

PRINT#, INPUT#, and GET# statements can , of course, handle numeric variables. Care 
must be taken when mixing strings and numerics. Remember, when the system expects to 
find a number, it sends you an error message. Keyboard INPUT statements simply tell the 
user to “REDO FROM START. INPUT# is not that friendly. 


Example set up. 

99 is again our fictitious file and “«— ” denotes a carriage return. (Remember <— is for 
sample purpose only and to the system is NOT a carriage return.) 


let N = 123, H$ = "123", and VN = VAL. < N$ > 

h'h! i H f #33 N puts ....123....3~ into the file 

/■ ~\ /- > I_one blank will follow each number 

C* \ 

r *s are 1 -one space is reserved for a sign, 

T blanks / 4- not shown, -if required. 

Pk I N r tt!:" 1 !:" 1 .» VN also puts .1.^ into the file, but 

Ph! IN I #yy .• H-f- puts 1 klo* 1 :*” into the file 


Notice the similarities in 5452 and 5453 and the difference with 5454. All of these can 
be read with either 


INPUT#99, X or INFUT#99,X$ 



If your head is spinning, don’t worry. -< 
It isn’t so bad once you’ve had a bit of 
practice and you’ll get it in the next chapter. v 

X '■ ' N < N \ 
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6000 SEQUENTIAL FILES 


CHAPTER DIRECTORY 


6100 

PRELIMINARIES 

6110 
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6120 

OPEN to Write 

6130 

OPEN to Read 

6140 

Notes on Use 

6150 

Replace Option/Editing 

6200 

SAMPLE PROGRAM 

6210 

Objectives 

6215 

Preliminary User Instructions 

6220 

LISTING 

6230 

Explanation - Detailed 

6240 

User Instructions 

6250 

Experiments - Makina Mistakes 

6260 

Exploring file data format 

6300 

COMMAND DEMO 

6310 

Objectives 

6320 

User Instructions 

6330 

Listing 

6340 

Explanation 

6400 

“A Can of Worms” 

6410 

Objectives 

6420 

User Instructions 

6430 

Listing 

6440 

Sample RUN 

6450 

After Thoughts 

6460 

“That’s all she wrote” 




6100 — 6120 


6100 PRELIMINARIES 


Rem: If you are an “experience first” type or are simply up to your ear lobes with reading about, do(6200) and 
come back when ready. 


6110 Overview 

As with all files, we must OPEN the “drawer before we can put anything in or get anything out. When we OPEN 
a sequential file we must: 

1) Specify the exact name of the file. 

2) Indicate the type of file (sequential, in this case). 

3) Tell the system whether we want to read or to write. (Sorry but we cannot do both at the same time.). 


OPEN to Read 


OPEN to Write | 

I 


\ 

INPUT# or GET# 


PRINT#. 

INPUT# or GET# 

or 

PRINT#. 

INPUT# or GET# 


PRINT#- 

1 


CLOSE 


j CLOSE 


The file must be on the disk before we can read it and cannot already exist if we choose to write. (Do you see 
the analogies with LOAD and SAVE? As with SAVE, there is a replace option (6150) for re-writing existing files. 


6120 OPEN SEQuential file to WRITE 


format: | OPEWn,dv,ch, ik d:name of file, SEQ, WRITE” | 

- T j 

Direction 
Type of file 


or simply: ^OPEWn^dv^ch^nam^nHe^W^^ 

ft 

Direction 
Type of file 
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6130 — 6150 


6130 OPEN SEQuential file to READ 


format: 

or simply: |^3P^/n,cfv, c/7, “name of ///e^R^j 


\ 

' Direction 


6140 Notes on Use 


6141 2-14 are used fore/? = channel number. The other parameters, fn = file number, and dv= device number are 

described fully in (5310). Name specifications are the same as those for programs (31 25). 


6148 



6142 | PRINT#/n7| may only follow an OPEN to WRITE. 

| INPUT#fn7| and | GET#fn,| may only follow an OPEN to READ. Aa 

iV\//VvnAaMwW/\A^^ ^ 

6143 ^5* When the “WRITE” process is completed the file must be closed, 

| CLOSE fn | or data can be lost. 


| imsb rn | or data can be lost. 


6144 When the “WRITE” process is completed and the file closed, that file may be re-opened for READing via (6130). 

The parameters need not be the same. 


6145 When a file is OPENed to WRITE, an error condition will result if the “name of the file” is in use, even as a pro¬ 

gram (PRG) or Relative (REL) file. (261) 


6146 When a file is OPENed to READ, an error condition will result if the directory does not contain “name of the 
file” marked SEQuential. (261) 


6147 When the “READ” process is completed the file should be closed, 

so you don’t run out of channels. This is not as critical as (6143) but it’s bad practice to omit 




V K » 

If your program is interrupted by a SYNTAX ERROR use cLS 



| CLOSE fn | in the direct mode or data can be lost. 


6150 Replace Option 


Rem: Notice the similarity to the SAVE with REPLACE option (3230). The problems (3330) may also be pre¬ 
sent. 
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6151 — 6210 


6151 Format: j OPEN tn,dv,ch,“@j>:tile name, SEQ,WRITE”1 


or simply: I OPEWn,dv,ch name, S,W” 


6152 Parameters are the same as described earlier (6141). 


6153 Purpose: Allows new data to be written in place of an existing file. It is equivalent to SCRATCHing the exist¬ 
ing file (4500) and then writing the new data in the ordinary manner. 


6154 Edit Method 1: If the DIMension parameters permit, read the existing data into an array. Re-write with either 
the replace option above or a SCRATCH followed by a normal write. 


6155 Edit Method 2: If all you need to do is add to (append) an existing file, use a combination of COPY(4800) and 
RENAME (4600). 


Speculation: I no longerfeel save using the replace option. Could it be that using the drive number, 
0 , will keep us out of occasional troubles? 




Somebody’s Law: If there is going to be a Replace Option foul up, an important file or program will 
be “replaced” by a “throw away test.” 


s-A 





Check out 3360 if you haven’t seen it yet. Using “0:” may not be as “optional” as I thought. 


6200 SAMPLE PROGRAMS 


6200 SAMPLE PROGRAMS 


Rem: Experience is by far the best teacher (and usually thre most difficult). By “playing” with this program, 
you’ll gain a feeling for how all of this fits together. That’s the primary objective of this section. 


6210 PROGRAM OBJECTIVES 


This program will allow the user to 

WRITE a sequential file with PRINT# 

READ that file via INPUT# 

“GET’ a computer’s eye view of that file via GET# 

CHANGE that entire file 
QUIT the program. 

The program also demonstrates the technique of “reading the error (command) channel” via a subroutine. 
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6215 — 6220 


6215 Preliminary User Instructions 2 


1 st: ACTIVATE your WEDGE (1230). You can do most of this section without but... 
2nd: Load the program from “FRIENDLY FLOPPY” 

Name: 1ST SEQ FILE PGM 


3rd: If you want to try it before studying the explanation (6230) have fun. GOTO 6240 
4th: As you study (6230) you may want to list the program by section: 


LIST - 100: 
LIST 300-399 
LIST 400-499 
LIST 600-699 
LIST 800-899 
LIST 9999- 


Preliminmary Set up. 

WRITES 

Changes 

READ 

“GETS” 

Error Sub routine 


6220 LISTING of “1 st SEQ FILE PGM” 

Rem: Just in case something happens to “FRIENDLY FLOPPY.” 


10 REN 1ST SEQ FILE PGM M* 

20 OPEN IS,8,IS 

21 C$-SPIRT 1S > 

22 MT="," 

25 PR I NT 11 :T : IHPUT" FI L..E NFlME"; FF$ 

30 PR I NT"JQ" FFTCTCT" READ, WRITE, GET, CHFlNGE, OR QUIT" 

40 GETKT : IFKT-""THEH40 

45 IFK$= ,, Q"THEN 10001 

50 IFKT="R"THENS80 

55 IFKT : ~"G"THEN800 

60 IFKT="C ,, THEN400 

65 IFKTO" W" THENPRI NT" R, W, G, C, Q" : GOTO40 
300 OPENS,8,3,FFT+",S,W" 

310 PR INT"TO WRITE: "FFTCT 

320 INPIJT" NRME !l .? NT 

330 INPUT"TEST SCORE 0 ,- TT 

340 PR I NT#3, NTMTTT 

341 GO Si IBS OSS 

3S0 PR I NT 11 RNOTHER'? ( V/N > 11 
355 GETKT:IFKT=""THEN3SS 

360 IFKT- i! H ,! THENPR I NT#3, " *" ■ CLOSES'; GOTO30 
370 IFKTO 11 V ,! T PIET-1350 
380 GOTO320 

400 PR I NT 11 TO OHRNGE ; "FFTCT 
405 P RIN T' ‘ 1 S PI 01J L I) $ !! F F B E S C R FI T C PI E U •? ‘(V / N > 

410 GETKT:IFKT-""THEN410 
4 IS IFKT- !! tt " THEN2S 
4 2 .0 IP P. $ 2 15 ! t : 1 ’ I H P. N 41 0 

430 PR I NT# 1S, ,! SO • "EFT 

431 GOSUBSSOO 
440 GOTG300 

600 OPENS, 3,3, FF$h- ", S, R" 

610 PR I NT"RERDING FILE: "EFTCTCT 

620 I NPIJT43, N$, TT 

(Continued) 


2 - Hopefully by now you can do all the “check lisjs.” If you’ve forgotten anything see 1010. Pre load check list. 
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6220 — 6231 


6220 


6230 


6231 


(Cont’d) 


621 G03UB3333 

625 I FLEFTT < HS, 1 > =" *" THENCL0SE3 ; GOT030 
630 PR I NTNTTRB (25> IT 
640 GOT0620 

300 OPENS, 8,3, FF$+ !i , S, R" 

310 PRINT"GET • "FFTCT 

320 GET#3.. GT 

321 G03UB3333 

325 I FGT^CHR* < 13 > THENGt = M 
330 PRINTG*.; 

335 IFG$O ,, *"THEN820 

340 PRIN'T'CT 

341 CLOSES 
842 GOT030 

3333 INPUT#15,EH,ENT,ET,ES 

10000 IFEN<20THENRETURN 

10001 PR INTEN; ENT, ETES • CLOSES : CLOSE 15 •* END 


SAMPLE PROGRAM ■ EXPLANATIONS 


Rem: Explanation for using BASIC statements have been deleted but their function described. Consult a 
BASIC reference for more details. No “crunching” has been done to the program to make it easier to follow. 
In this section all “line numbers” references refer to the program. Numbers enclosed in“( )” refere to text 
section. 


Initial Setup (LIST - 100) 

10 REM 1ST SEQ FILE PGM M* 


This REM simply contains the Exact Name of the Program. I started doing this when I started forgetting which 
program was which. 


20 OPEN 15.8 .■ 15 


\ 




Command channel. Must be 15. 


Device number. 8 for unaltered drive. (If by any chance your drive has been 
altered via hardware, use that new number here.) (160) 


File number. In this program it is matched to the channel number. If changed, corres¬ 
ponding change has to be made in lines 430, 9999 and 10001. 


This line opens the command channel so we can read any error message from the drive and protect files. 

2 1 C$= : CHR:f ( 1 3 ) setsasimplestringvariableequaltoacarridgereturnusingASCIIcodenumber13. 

It is primarily for use as a “separator” for our file data format (5400) experiments in (6260). It has also been 
used in normal screen PRINT statements. 
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6231 


6231 (Cont’d) 


E2 Mi-'-- ” ■ " sets a string variable equal to a “comma.” It will serve as a “separator” (5400). 
M$=CHR$(44) is an equivalent statement. 


NOTE: Lines 20,21 and 22 were originally “crunched” into one line as were otherlines numbered consecu¬ 
tively. 


25 PR I NT 11 :.T : IMPUT" FI L.E NFil'IE"; FF$ 


Here we just clear the screen and ask the user to input the “file name.” 



Note: FN$ was my first choice but I got a syntax error. The system thought I wanted “FUNCTION” in BASIC. 


Note: Ifyou use something otherthan FF$, you of course, will have to make corresponding changes in lines 
300, 400, 600, 800, 30, 310, 410, 610 and 810. 


30 PR I NT ”FF$C$C$ ,! READ, NR ITE, 


GET, CHRHGE, OR QUIT" 


Line 30 is the “job menu.” The program will come back here whenever the current task is finished. “Cursor 
down” in quotes would do the same thing as C$ here since the cursor is already at the far left. 


40 GETKf:IFK$=""THEN40 
45 IFK$="G"THEN10001 
50 I FK$- 11 R " THE!-1600 
55 IFK$'= ,, G ,, THEN800 
GO IFK$= ,, C"THEN400 


65 I FK$<>" W" THENPR I HI" R 


waits for the user to hit a key. 


each sends the system to the line in the program that will 
do the job. If the user types the entire word—no problem. 


Ul, o, c, Q “ : 001040 


The line above is a “user friendly” line so the program does not default to “write” and even gives the user a 
hint. 


NOTE: Lines45-65 are prime candidates for ON_GOTO_,_,... Doing so would require changes 

in the job menu structure. Asking the user to input a number from 1 to 5 would be the easiest. (“GEN REL,” 
the relative program sample illustrates this technique(7316).) 
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6232 


6232 FILE WRITE (LIST 300-399) 


300 OPENS .■ 8,3FF$+ " .■ S .■ W" 

t t t t t t t 

direction: WRITE (6120) 
file type: SEQUENTIAL (6120) 

“adds” strings 
string holding file name 

Channel number. Data channel 2 to 14. 

Device number (see line 20) 

File number. Again I’ve chosen to match the channel number. Changes here would demand 
changes in 360 and 10001 which would effect all other OPEN and CLOSE 3 statements. 


Note: This line OPENS the sequential file to write. If FF$ already exists the poor user is in trouble as you’ll 
find out in “making mistakes.” (6250) 


3 i 8 PR I M T 11 T 0 W R I 7 E • ''F F$C $ is just a message to the user. 


320 INPUT"NAME":N* 

330 ‘INPUT "TEST SCORE!" I T$ 


Note: String variables were used to avoid 
difficulty. We’ll mess with that later. 


Both of these 
simply ask for 
user to enter data. 




got sick of - 
mailing lists 
but you might O 
prefer “phone 
number” to 
“Test Score” 


Score” 

u/ 


340 PR INT#3 


Hi- Pi# I $ “writes” data to the file. (Well, actually to a buffer and then 
A to the disk). None of the data*will be useful until the file is 

CLOSED. 


There’s the separator. 


File number. Must agree with the first number in line 300. 


NOTE: Thisstatementwill put ^s^sennpu^2nduser/npuftj into the file. Again," +- ” isusedtoshow 
a carridge return. What is really “in the file” is the byte that signifies CHR$(13). 


o4 1 UUbUBH 3 !:“*8 sends the system to the error channel read routine. See line 9999 for details. 

Note: One of these probably should follow line 300 to catch an already existing file earlier in the program. 
(6250) Making mistakes will illustrate. 


3bi::1 PR I N [ l! MHO THE” Rv V/M t " Just asks the user if there will be another entry, 


355 GETK$ ■ I FK-P^ i! !, THEH355 


and waits for a response. 
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6232 — 6233 


6232 


(Cont’d) 


3f.0 I L KT— " N " Ti-HENF'R J’ NT #3 . 


CL. O' 


must agree with ti 

I 


E3•GOTO30 


i ~A number in line 300. 


Puts a “flag” (and an 
automatic carridge return) 
into he file. The * will 
be used to stop the file 
reading processes. 


To job menu for next task 


Causes the system to put the stuff in the buffer onto the disk and updates 
BAM (270). If this is not done, all the data the user just typed is inaccessable! 


3 i' G J 0- -t- : . . 1 ' 't‘ ‘' i HFl'TdGO is just a user protector. If omitted any key except “N” would send 

the system back for another entry. 


:4d GO i U330 line 320 is the user input line. 

rfK 

NOTE to the more advanced. 

f The STATUS function can be used to determine the end of file 
? eliminating the need for this “flag” system. (6344, 6347, 8330, 8500) 

- 




6233 FILE CHANGE (LIST 400 - 440) 


TOO 

PR I NT 

"TO CHI 

"INGE: 

,! FF: 

n:$ 

403 

PR I LIT 

11 SHU! II....: 

i TFFl 


3E 

T 1 0 
-!■ 1 5 
420 

GFTKf 
I FK$= 
IFKK 

'• IT KT= 
Li" ThiEI 
> " ! t’ " T i -l i: 

'■ "THELIT 
425 
i N 41 Li 

]. id 



The lines above allow the user to abort scratching a file. 400 and 405 are just messages. 410 is the usual 
“wait for user.” 420 just protects the user. i.e. The Y-key must be pressed to scratch the file. In some programs 
a line like 420 can be omitted if the consequences of user error are not severe. 


430 PRINT#!::., !! S0: ! 'FF$ is the actual command to SCRATCH (4500) the file. 

t 


-T more commands > 
C in 6300 


notice that we address the command channel not the data channel. The 
1 5 here is the first number (file number) from line 20. 


43 1 i I! Ipi ! 


the error channel read routine. 


440 ON 10300 - the beginning of file write (6232) 


Note: The original version of this program used the replace option. I discarded it when I heard of and encoun¬ 
tered problems with it. So sad. (6150) 


in 















6234 


6234 FILE READ (LIST 600-640) 

6@0 OPENS . 8.3 . FF *■ t ", 8 . R" 

t 

direction:READ(6130) 


Note: Other parameters are identical to those in line 300. The file number and channel numbers need not 
be the same as those used in 300 but doing so simplifies matters. 


b 1 fcl F"'k 1 N I 11 KLH J.J 1 hi l..;i i- 1 Lb ! 11 i— |— ■ i.„. ::£■ is just a message to the user like 

lines 310 and 410. 


620 I FiF'UT #3 .• N$ .■ T* 


commas must be used in the INPUT# statement no matter what 
“separators” are used in the PRINT#. We’ll experiment in (6260). 

must agree with file 
(1 st) number in 600. 


621 G0SUB999S 1 


again sends the system to read the error (command) channel. 


I*;;.. j 


IFLEFF£(N$, 1 > 


" W -" I HE i'-ic LOSE 3 *• GOT 039 



back to job menu 


not as critical as that in line 360 to data, but if omitted from program 
other OPEN statements will cause BASIC syntax errors. If the 
program had another WRITE file open, its data could be lost unless 
it is CLOSED 


our stop 
flag placed 
by line 360 


This part is a hold over from a previous version of this program. (I was going to fix it to simply 

but it does demonstrate a user protection technique. (See basic BASIC reference). 


Also (7332) line 2055. 


bo Li Ph : 1 N i N-f ! Hi::- !:::!■ j I ■£ will display data on screen. 

Note: Feel free to modify this line if you don’t like the display format. 

»:;•«4i-J I »LI i i ! i-:'l sends the system back for another entry. It keeps up the cycle until it “sees” the 

flag (*). 

Note: If something happened when the file was written to prevent the writing of *, we get into an “eternal” 
loop. | RUM/STOP"] will have to be used and files closed by CLOSE3 or INITIALIZE (4300). (6250) for ex¬ 
amples. 
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6235 


6235 FILE “GET’ (LIST 800 - 842) 


Rem: This sequence, although intended to enable you to explore file data format, could be adapted to ex¬ 
plore the contents of an “unknown” file. It will return punctuation used as separators as well as carridge re¬ 
turns. 


LiLiLi Ub'i::: Nbl .■ Li • >:! ■ b b $ •+• : ■ Li . h! is identical to line 600 in both structure and function. 
Note: Here again the parameters, “3,dv,3” need not be the same as previous open statements, but, . 


Li 1 Li ! K i N I ! !. A:., i ‘ b b $[./$■ is just a message to the user. (C$ is still just a carridge 

return). 


11 -l'' will “get one byte (character) from file 3. The next time through this line will get trie 
next character, etc. As you will see GET # is a slow way to read the file but it will “get” 
through the file no matter what—assuming we ask to “get” a string. 


must agree 
with the file 
(1 st) number 
in 800 


reads the error channel (again). 


IFG$~CHR$ 


■■■lu*- 


a carridge return 
(placed automatically 
by line 340) 


you’ll see these when you run the GET part of the progiani. 


NOTE: This is a line to help you “see” what the system “sees.” 

* -■ L.l bk IN I Lvi • places what the system found where you can see it. The semi-colon was 

used in the normal manner. 

i L b'i- I bib. i iobi stop flag again. (The file does contain one more carridge return). 

Li4Li b’k 1 I' I i L $ is just 2 carridge returns, one from PRINT and one from C$. 

Li4 1 i. I. ' i-‘b. -L must use file number from 800. See also line 625. 

■".i ,: -i-I jU i Uobl and back to the menu for another task. 
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6236 — 6240 


6236 ERROR CHANNEL SUBROUTINE 


INPUT#15,EN 



Must bethe 
file (1 st) number 
used in the 
OPEN statement 
in line 20. 


E: ! v t.:t , ET , ES 

t t t 

Error location. ET = Track 
ES = Sector 

Any basic variables can be used. Line 10001 must 
be changed accordingly. 


Error message STRING. May be any string variable. 


Error number. Numerical variable is recommended. If a string is used here a VAL function must 
be used in 10000. 


Note: Commas required in INPUT# statements. 


I 0000 I. F F N <F.i i Fi F Fi F' F i i. i F' N 

Here is where the error read subroutine starts to differ from the program listed below and described in (9200). 
Error numbers less than 20 do not indicate error conditions. If all is well, we go back to the main part of the 
program and continue the task. 


10001 F'F : j Fi "I F N; EM# ■ F I : ES 



Simply prints 
message to screen. 
Feel free to adjust 
the format. 



j usual meaning 

closes command channel. 


Closes data channel. Here’s where we’d have a mess if we didn’t use the same file 
numbers in all data file open statements (300, 400, 600, 800). 


Note: Our “Quit” option ends up here. If you don’t want to use the “OK” error message use a line 10002 for 
COSE3:CLOSE1 5:END and fix line 45. 


Note: Program from (9200) for your convenience. 


60000 

REM*#*REHB CGNNRNIi/EER 

!0R CHRNNEL 

600 .1 0 

OPEN 15,8,15 


60020 

I NPU'l # 15, E, N*, T, 8 


60030 

PR I HIE.: M$, I ■ 3 


60040 

CLOSE 15 




6240 USER INSTRUCTIONS 

Activate your wedge—just in case (1230). You can work without it, but... 

LOAD “1ST SEQ FILE PGM”,8 

NOTE: “TEST 1” is on “FRIENDLY FLOPPY” 

DO NOT name your file “TEST 1 ” if “FRIENDLY FLOPPY” is in the drive. 

DO NOT SCRATCH TEST 1 

SUGGESTION: Change disks after loading the program. INITIALIZE (4300) before running. («I 
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6241 — 6242 


6241 Type: RUN 


The screen will clear and the programs will ask for a file name. 


We’ll write a test file. Take care NOT to choose the name of a file on the disk in the drive. If you do so the red 
light will flash. GOTO 6251 



The screen will show: 


You can now select a job by 
typing the word or just the first 
letter. See lines 30 - 65 in the 
program explanation. (6231) 


file name 

READ, WRITE, CHANGE, GET, or QUIT 


6242 


Type: W We have to WRITE the file before we can read it or do anything with it except QUIT 

the program. 


The screen will show: 

It wants the name for this record. 


TO WRITE: filename 
NAME? □ 


Type:[ 


Anything you want. Make up your own name but keep it under 20 characters or you’ll mess 
up the display when we read the file. 


The screen will add: 


TEST SCORE? □ 


Type: ] \ Anything you want—but for later uses, give it a number like 100. 

When the screen shows: ^^NOTHER(Y/N)J 

Type: V 


Write 2 or 3 more records. Make up your own names but use a negative number for one test score, a positive 
for another, and one with a decimal point, like 6.2, for a third. DO NOT use any letters even though this pro¬ 
gram can handle them. 


When you are finished entering your records, 
Type: N 


You’ll see the “job menu” again. This time we’ll read our file. 


2 - Be sure to use a formatted disk (2000). 
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6243 — 6250 


6243 


Type: R 

The screen will show: 


READING FILE: file name 

1ST 100 

2ND 99 

3RD 57-5 

4TH -5 


t 


Your names Your numbers 

When the menu appears, we’ll “get” a look at the file the way the computer “sees” it. 


6244 Type: 0 The characters will come on, one at a time. 


p___ 1 — - Commas from M$, program lines 22 & 340 

1ST, 1004-2ND, 39-3RD, 57- 5*-4TH, -5** 


Automatic carridge returns 
from program line 340 


When you see the menu, if you want to rewrite the entire file, type C for change. (It is a nuisance. We’ll have 
a better way in a different program). To escape the program... 


6245 Type: Q 


The screen shows: I 0 OK 0 0 

That’s just the 1 

error channel read 
out from line 10001. (9250) 


6250 Making Mistakes 


Rem: A “user friendly” program does not permit the user to mess things up too terribly. This program is far 
from it as you will see. The kinder the program, the longer it gets. Take a look at COMMAND DEMO in 6330 
if you haven’t already done so. 

As you work through this section I’ll ask you to make mistakes. Hopefully you’ll learn how to get out of trouble 
and how to avoid it in your own programs. 


Before we go on, view the Directory 
of “Friendly Floppy.” Be sure you 
see a file called “TEST 1 ” 

If you don’t, write one (6242). 



C' 

\ You’ll want your «wedge» active. 
{ Use @$ to view directory. 







Note: All of the line titles are things you should not allow to happen in actual practice. J 
We are going to do them anyway just to see what happens. 2 

-r 


- — W' ■,— Kj 
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6251 — 6252 


6251 OPEN an EXISTING SEQuential file to WRITE 

Rem: That’s exactly what we are going to do. 

Activate your «wedge» 

Load and run: 1 ST SEQ FILE PGM 

Ask for: TEST 1 or any other existing sequential file. 

Type: j.».| The red light should be flashing. (Just relax and continue). 

Type: A name and a number or some gibberish, or simply hit RETURN a couple of times. 

The red lightgoesout. Youseetheerrormessageandthe programends. Bad practice. The usershould not 
see the red light unless there is a real problem (like hardware failure). 

Type: - 1 *- bUBUB9999 This adds another trip to the error channel. 



Repeat this experiment with the new line. See the difference? If the programmer wants to be really kind, error 
handling routines can be built to look for specific error messages. User options can be built accordingly. More 
sophisticated routines are used in COMMAND DEMO (6300). 

|""nOTbT It is good practice to read the error channel after OPEN statements. | 


6252 OPEN a NON EXISTENT SEQuential file to READ 


Rem: This works just about the same way as the preceeding. 

RUN the program again and this time use a name that does not exist on the disk, say j I:::.I 
(unless, of course, you’ve already written one). 



Ask to read, Type: K 


Notice there is no flashing light this time. The program hit the error channel read routine very quickly. The 
error message appears (due to line 621). It is still good practice to add an error channel read routine immed¬ 
iately following an OPEN statement. 

F i x t h at by ad d i n g £, 0 ;j G fj S lJ B9999 
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6253 


6253 User interrupts run. A matter of taste. Sometimes a good 

idea to disable RUN/STOP key. 


Run the program, ask for TEST 2 
or 

any other file NOT on the disk and the 
“WRITE” option. Start writing the file. 

One or two records will be enough. When the programs asks for hN'J ! HEN v Y /N ) 
hit the RUN/STOP key. 


Notice that the break message appears but that the red light is “on solid” (0146). View your directory. (If your 
«wedge» is not active, @$ doesn’t work, load the directory (1218). You’ll of course have to reload the program 
( 1220 ).). 


0 

DISK NAME 

ID 

2A 

1 

TEST 1 

SEQ 


0 

TEST 2 

*SEQ 



The* in front of the file type shows that the file was 
NOT CLOSED. For all practical purposes the data 
is unavailable. 


Run again. Ask for I Eo I 

to Read or Get. The red light goes out but we see yet another error message. 


60- READ FILE OPEN 


Run again. Ask for TEST 2 . to Change. 


Allow the system to scratch. When the WRITE portion appears, repeat the experiment, but.. .i.e. 


Write an entry 

Hit RUN/STOP when you see ANOTHER(Y/N) 
View your directory (notice the *SEQ) 


This time 



Type: CLOSES!?' 


The red light goes out. (The drive may “whir.”). 

View the directory again. The * in front of SEQ is gone. 


The file is now closed. This program will not be able to read it properly but at least you can “get” at your data. 

Try one more run, thistimewith I Eo f 2 . toread. Whenyougetsickof seeing your last entry, usethe RUN/ 

STOP key. You might as well SCRATCH (4500) FES I 2 while you’re thinking about it. 

(Continued) 
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6253 — 6261 


6253 (Cont’d) 


Note: If the user in a BASIC error condition interrupts a file write operation, 

CLOSE the files manually if at all possible. You need to know the file number. 

CLOSED) I 


Some programmers under some circumstances like to disable the RUN/STOP, RESTORE key for at least 
parts of the program run. These Pokes will do the job 2 . 


POKE808,225 to disable RUN/STOP, RESTORE Keys 

POKE808.237 to (re)-enable 


Frankly, I’m not in the habit of using this option. Then just POKE to disable can be a real hazzard when you 
are in a debugging stage of a program. If the RUN/STOP is disabled and you’re in trouble, remove the disk, 
power off the computer and start over, (not a nice prospect if you haven’t SAVEd for a while.) 


6260 EXPLORING FILE DATA FORMAT 


Rem: If your goal is to simply use file programs, you can skip this section. On the other hand, if you want to 
write your own programs, you should spend some time here. The methods also apply to RELATIVE and to 
RANDOM files. 

6261 STRING VS NUMERIC 


The 1 ST SEQ FILE PGM writes and reads all data with strincjs. 

The SEQ FILE# PGM writes and reads the test score data with numeric variables. The programs are iden¬ 
tical except for these lines: 


r“, i—, -r ii " i'**i i. 4 ’ 2 . ■■r ’ ' All that’s different is the numberic variable, T, replacing 

.iyil-kl r h. 1 rl I Tr .• N4 , Tli* I the string variable, T$. 

620 INPUT#3.■ M$T 
630 PRIHTN$TRB < 25)I 

Load the SEQ FILE # PGM , run, and write a file just as you did in(6242). Read yourfile. It will looklike the 
one below. I called mine “TEST NUMERIC.” 


2 HD 
3RD 
4TH 


NUMERIC 



Do you see a very subtle difference from TEST 1? Hint: 
Lookatthe negative numberentry(6243). The“—” is in a 
different location. These numeric entries save room for 
the sign, + not printed. 


Try the “GET’ 

TEST NUMERIC 

1ST.. 100 -ir-2 !'••!] J SS' KIRI).. 67., 5 . : 1 -Hi 1 : Compare to that in (6244). 


(Continued) 


2 - COMPUTERS GAZETTE, September 1 983, Page 14 
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6261 — 6262 


6261 (Cont’d) 


The changes here are not nearly so subtle. Notice the space after each numeric entry. Reread (5450). Read 
and Get “TEST 1” with this program. (2nd SEQ FILE PGM). 


Test 1, written with T$ but read with T. We’d be in big 
trouble if any of theT$’shadconained non-numeric data. 
The“GET” part is identical. The content of “TEST 1 ” have 
not changed. 


TEST 1 

1ST.i 100 , O“2MD 9S ! -':-3F’I).. 57. 5 ,| " ,| 41 l-l . 


Reload: 1 ST SEQ FILE PGM 


1ST 1@0 

2ND 99 

3RD 57.3 

4TH .5 


Now we’ll read the NUMERIC file with the string program. 


TEST NUMERIC 

1 S I 1 00 Notice that the numeric file reads like the string file (6243) when 

h-J Ti C 19 read with a string program. The “GET’job returns exactly what’s in 

I?,'.... the file. 

3 k.Li 


TEST NUMERIC 

1ST.' 100 - | :-2!'■■!]j.< SS ■'KT’T.D67.. 5 . : t ‘Hi': 


The two programs are nearly interchangeable so long as the numeric program finds only numbers for num¬ 
eric variables. If it should find a string, a BASIC error condition will abort the run. The user must close the files 
by number if known or with the “INITIALIZE” command given via wedge @1 or via PRINT#fn,“l” where fn is 
the file number open to the command channel. See (4300). 


6262 Rem: SEPARATORS 


Rem: Separators are described in 5400, the “Rem” and especially in 5430. All of the following use the 
string program 1 ST SEQ FILE PGM . We’ll “play around” with separators. All of these experiments will 
involve altering the program. To get these to work as described, be sure to follow directions. You can, of 
course, make up your own experiments. 

Recall: 22 NT- i! .. " is used to place separators into the file in 340 


348 PEINT#3, H$i v i$7T 


These are the lines that we will be changing. 
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6263 — 6264 


6263 CARRIDGE RETURN 


Type: L I 37 340 and change it to read as shown below: 


348 PRiNT#3,H$nrri: 

t 

Change M to C 

Run the new program and write a sample file called “TEST CR.” 
Read and Get jobs will look something like this: 


TEST CR 

1ST 

2ND 

3RD 

4TH 


Notice that the read process results are the same as those with the 
comma used as a separator. 


ST-H 00" 

\ \ 

{ \ 

\ \ t 

I 

c$ 

I 

c$ 

1 

c$ 

TEST 1 

1 ST, 100- 

A 

H--2ND, 99" 

i i 

L i 

t 

MS 

t 

MS 

t 

MS 




C$ 


t 

M$ 


You’ll see the difference when you use 
the “GET.” Compare “TEST 1” with 
“TEST CR”. 


Automatic after 340 


As a programmer, the choice is yours. All of the following versions of 340 will be read the same way. 


340 PRIHT#3,H$C:fT$ 
340 PR I N T'#3, l v i$T:f 
340 PR I HI #3 .< "T$ 


where C$=CHR$(13) 
where M$=CHR$(44) or M$=“,’ 
note the quotes!!!! 


6264 ‘REAL’COMMA 


Type: L I 3 T. 340 and change it to read as shown below: 



Run this new program, write a sample file with 4 entries called “TEST REAL COMMA.” This time, use the “GET’ 
before you read! 


(Continued) 


121 









6264 


6264 (Cont’d) 


Your results from the “GET’ will look like this: 


1 1 Al . !l . ! J... ...... ... Notice all the spaces. Notice that 

1i 1 MR ! : "i::;!M Jj y y ‘‘r.JKJJ there are only 4 separators! 

Q3 „ £|- , i-4TH .1 


Now read yourfile. The system thought “ 1 st.100” was the name, N$, and “2nd.99” was the Test Score, 

T$. 


TEST REAL CONMR 


screen spacing slightly different 2 


Now use the “CHANGE” to rewrite “TEST CR” so it contains 3 entries. After writing use the“GE"H first and 
you’ll see something like this. It will “scroll” on your screen. 


TEST REAL COMMA 

1S T 1 @ @ -ir2 H E 9 3 "K? R D - 3 S' ■*-# 


Warning - be ready to hit RUN/STOP key after you ask to read this file. 


TEST PERL COMMA 


e:d 

. 39 

:'i' 

e:d 

.Q Q 

;■!• 

RE 

EE 

. Q Q 

. Q C| 

it 

if 

ED 

. '•■■I 

st 

EE 

.y q 

* 


Whew! Notice your red light is on solid. 


Type: CLOSE-"! 


The flag was not found in the proper position. Since the separators did not occur after the name, the flag was 
in a Test Score slot. 


2 - This space is due to a difference in the way the printer and the screen handle commas. You would not see it if I’d used 
the same number of characters for 1 st and 3rd Test entries. 
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6265 


6265 SEMI COLONS 


Type: L. i S T 340 and change it back to its original form. 


340 PRIHT#3,N$M$T$ 


Type: LIST?!? and change it to ?? 

t 

Run the new program and write a file called “TEST SEMI.” If you write an even number of entries, it will “read” 
in a “semi normal” manner. An odd number of entries will cause the same problem as in (6263). To avoid diffi¬ 
culties use the “GET’ before you read. 


IFST SEMI 

1ST.; 100"K2Nn; S'9-t-3Rl!.; -5. 4 


t 1 

♦ i 

t t 

M$ 

M$ 

M$ 


Automatic from 340 


TEST SEMI 
1ST;100 

3RD.:.5„ 4 

klj.b ii 4 

E I.i.;.• j „ 4 

.:;J h! 1J.S4 

PElJ.;. j „ 4 

3RD;--5.4 


*|-..j j'j ; qq (with odd number of entries) 2 Notice that the semi 

.. colon is NOT recognized by INPUT# asadatasep- 

arator. Semi colons do separate variables in PRINT# 
■ij': statements as they do with PRINT to screen. 

* 

i+i 

* 

* 


Type: |.I S I S40 and change M$ to a real semi colon. 


:340 PE I NT#3 


T'$ 


Run the new program and write a file, “TEST REAL SEMI.” Even and odd numbers of entries will result as 
earlier. The “GET’ job will look like this: 


TEST REAL SEMI 
1 ST 100«-2ND99KiRB#38*-* 


Notice that your data is bunched the same way as 
if 340 contained no punctuation between N$ and 
T$. When you finish with SEMI, try the whole pro- 
cess with: 340 pp J NT #3 , mj$ 


TEST REAL SEMI? 

1 ST 10@P?L!ri9::?-'Hi|': 


(Continued) 


2 - Type: I...TJ.J if necessary to shut off solid red light. Nothing awful will happen if you don’t bother. 
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6265 — 6267 


6265 


6266 


6267 


(Cont’d) 


* 
# 
i ♦= 

% 

% 


COLONS 


Type: L I 3 T340 and put it back to its original form. 


340 PRINT#3.' N$M$T$ 

Type: I... I ST22 and change it to 22 


These are your “READ” results with odd and even numbers of data entries. 

TEST REAL SENI2 
I 
# 


' 100 


ENDS'.9 


TE 

II 


!ST REAL SEMI 
;T 100 


: ri- 
Ii' 
3RD- 
3RD-SS 


Run this new (and last) program. Write a sample file called “TEST COLON.” Even and odd entires will have 
the similar effects as described earlier but another effect will also be apparent. 

Use the “GET” first. 


1ST: 10@-'!~2HIi : 93«-3EIi: 4. 7 *-#. 


appears as anticipated. 


And now the “READ.” (This one for odd number) 

TEST' COLON 

lb 1 2ND Thesystem ignored the data after the colon. If you 

■::jp]"| have a devious mind you might see a way to hide 

,2data in a file. Hmmm!!! 

bkli i+i 

3RD * 



The bottom line. 


String programs are safer than numerics and save space in files. 

Use the VAL function to work with the numbers. 

Carridge returns and commas are the safest separators. 

Carridge returns automatic after each PRINT# so maybe multiple print statements 
ain’t so bad after all. (5420) 
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6300 — 6323 


6300 Command Demo 


Rem: You’ll find this section useful if your intent is to write your own program. If you are simply a casual user 
you’ll pick up a feeling for file management by at least using the program. 


6310 Program objectives: 

The primary purpose of COMMAND DEMO is to illustrate: 

the use of some of the commands that can be sent to the drive. 

alternate error channel read routines 

provide a “directory view” within a program. 

how a program can be written to be kind to the user. 


6320 


6321 


6322 


User Instructions 


Name: COMMAND DEMO 

load type: (normal) 


PRACTICE DISK - 

Be very careful that the disk you select for practice does not contain any files or programs that “match” any 
of the following: (4522) 


FILE ? COMBO ? HOLD 

\ ^ 

wild cards 



For best results, “Format” a blank disk (2000) for this run. The “directory view” routine used in this program 
is written in BASIC so it is much slower than the machine language routine of your «wedge». A long directory 
will take a while to view and may also “bury” some of the changes where they will be hard to find. i.e. The files 
we are going to create are short so DOS is likely to stick them wherever it finds room. The program will still 
work but it will be harder to see the results. 


6323 Load and Run the program. 


You’ll see the Title followed by a short form of the directions above. (6322) 

Insert your practice disk, hit any key and the drive will INITIALIZE your practice disk (6343). You’ll see the 
current disk directory. It will look a bit different than what you usually see. If you don’t like your choice of prac¬ 
tice disk, use the “left arrow” key to quit the program. If you chose to quit simply re-run the program to start 
over. 
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6324 — 6327 


6324 File Write and Read 


If you hit return, you find that the program is asking for data. It will want two pieces of data for each of four test 
files. I suggest you use something that shows order like 1,2,3,... or A, B,C, ...The program will place your two 
entries and then a string of its’ own actually (only the file name) into the file. It will come back to you for two 
more entries for the next file. 


If by any chance you see an error message, check out your manual, or (9500). If it is a 63 FILE EXISTS, use 
your wedge to examine the directory carefully. If you find FILE 1, FILE 2, FILE 3 or FILE 4, that’s the pro¬ 
blem. Change disks or scratch (4500) those files (sure they are just practice files), and start over. 


When you finish writing you’ll see the directory. After you hit a key the program will simply read back the 
files you wrote. 


Notice: Writing a file places the file name (and a bunch of other stuff 0270) into the directory. Reading a 
file does not affect the directory. 


6325 File Communication - The COPY command (4800) 


Sit back and relax. The program will 1 st combine FI LE 2 and FI LE 4 into COMBO 1. If you are seeing a read¬ 
out of COMBO 1, it’s already done. Notice also that COMBO 1 has been added to your directory. If you are 
thinking about programming, you can see the possibilities. This isa much better way to updatefiles if all we 
have to do is combine some files. 


COMBO 2 consisting of FILE 1, FILE 2, and FILE 3 will be formed in the same way. You’ll see a reading of 
COMBO 2 and the directory (again). 


6326 RENAME a file (4600) 


This phase simply changesthe name of COMBO 1 into HOLD. Thecontentsof HOLD as you can seeare ex¬ 
actly those of COMBO 1. HOLD is not a new file at all. Notice that COMBO 1 no longer appears in the direct¬ 
ory. In its place, you should see HOLD. 


6327 


If you got a 63-FILE EXISTS error, somebody probably ran this program but forgot to SCRATCH HOLD (4500). 

(4500 \r jVwivk 

Files that match FILE 7 


SCRATCH FILE 


will be SCRATCHED 




rJv/vV\ /\M\f 

r l/'A /\l '4 " V ’ ^ 


Here you will be aiven an option to escape. Hit that left arrow key if you suspect that any important files may 
matchF I LE 7The screen directions say “start with” but only those that match the wild card form 
FILE ^ will be scratched (4532). 


If you chose to abort you’ll have to scratch the test files FILE 1, FILE 2, FILE 3, and FILE 4 as well as COMBO 2 
and HOLD manually (okay, okay—not a scraper just an immediate mode disk command (4500)). 


If you chose not to abort by hitting return, you should be seeing in message that the files have been scratched 
followed by the revised directory. You may see FILE NEW or FILE2 since those don’t match the wildcard patt¬ 
ern. The program directions were a bit of an overkill. 
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6328 — 6330 


6328 



SCRATCH: COMBO ? ' /" \ 

Fiies that match COMBO 
wili be SCRATCHed 

*^vyv^ vy 

This phase will really only scratch COMBO 2 unless there are other files that match the pattern (4532), 
COMBO ? HOLD will not be scratched and there should be no COMBO 1 to be scratched. 

Again use the “left arrow” key to abort if you are in doubt. Scratch manually before you run again. 



6329 


The End 


You see the directory showing oniv HOLD if you chose to continue and the program ends. You must scratch 
HOLD before you can run this program to this point again. 


If your wedge is active you can use the “pre-printed” screen message. Simple “cursor up” and hit RETURN. 


Can you guess where you’ll get into trouble if you run again before scratching HOLD? If not, run it again and 
find out. 


6330 LISTING of -‘COMMAND DEMO” 


Rem: This program is obviously longer than the crude programs in (6200) because it is kinder to the user and 
has nicer displays. 


This listing and the printer produced lines in (6340) were prepared with a different printer whose interface 
changes the graphic characters for display controls into a more readable form. This makes the listing look 
longer than it would otherwise. 


10 REM ******** COMMAND DEMO ******** 

15 GOTO150 

99 INPUT#15,EN ? EM$, ET,ESs RETURN 

100 REM *** VIEW DIRECTORY *** 

101 OPEN1,8,0,"$":P$="#" 

102 GET#1,A$,B$ 

105 GET#1,A$,B$ 

106 GET#1,A$,B$ 

110 C=0: I FASO" "THENC=ASC (A*) 

112 IFBSK >""THENC=C+ASC(B$)*256 
114 PRINTC;TAB (5) ; 

116 GET#1,B$: IFST< >0THEN140 

118 IFB<£>=CHR$(34)THENPRINTB*; 

119 IFB*<>CHR$(34)THEN 116 

120 GET#1, B$: IFB*-< >CHR$ (34 ) THENPR I NTB$; s GOTO 120 
122 IFB*=CHR$(34)THENPRINTB^; 

130 GET#1,B$: IFB$=CHR$(32)THENPRINTP*; s GOTO130 
132 PRINTTAB(32);:C$="" 

134 C*=C$+B*:GET #1,B$:IFB$<>""THEN134 
136 PRINTLEFTf(C$,3) 

138 IFST=OTHEN105 

140 PRINT" BLOCKS FREE CLOSE1sRETURN 



(Continued) 
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6330 


6330 (Cont’d) 


150 R*=CHR*<13) :K1*=" CRV0N3- CGRY23 ANY KEY WHEN READYCRV0F} CGRY1 > " : P0KE53281,15: PO 
KE53280,4: PRINT" CCLR3- CGRY13- " 

152 K1$=R$+" CRV0N3- -CGRY23 ANY KEY WHEN READY CRVOF} CGRY 1 > " +R$ 

155 K2$=R$+" -CRV0N3- CGRY23- CGRY 1 >RETURNCGRY23- TO CONT / -CGRY1 > +■ CGRY2> TO ESCAP 

CRV0F3- CGRY 1 > " +R$ 

00 PRINT" CRV0N3- COMMAND DEMO — DIRECTIONS-CRVOF} " : FORT= 1T0500: NEXT 

02 PRINTR*" C 1 3. CRV0N3-CHOOSE PRACTICE DISK"R* 

04 PRINT" DO CROON! NOT CRVQF} USE ONE THAT CONTAINS:"R$R$TAB(6)"FILE 1"TAB(20)" 
COMBO 1" 

205 PRINTTAB(6)"FILE 2"TAB(20)"COMBO 2"R$TAB(6)"FILE 3"TAB(20)"HOLD" 

206 PRINTTAB(6)"FILE 4"R*R$ 

207 PRINT" CRVON> USE -CRV0F3- A FORMATTED DISK OF COURSE! "R* 

208 PRINT" FOR BEST RESULTS:"R$" USE A DISK THAT HAS VERY FEW ENTRIES"R* 

209 PRINT" [23 CRVON>INSERT PRACTICE DISK"R*R*K1* 

210 GETK*:IFK*=""THEN210 

220 OPEN15,8,15,"I":G0SUB99:IFEN<20THEN230 

225 PR INTEN;EM$,ET"-"ES:CL0SE15:END 

230 PRINT"DISK DI RECTORY"R$R*:GOSUB100:PRINTK2* 

240 GETK*:IFK$ =""THEN240 

241 I FK*= " " THENCLOSE 15: END 

242 IFK*<>R$THEN240 


Rem: 250 WRITE 
270 READ 

300 COMBINE (COPY command) 

350 COMBINE (COPY command) 

250 PRINT"CCLR>TO WRITE TEST FILES" 

252 FOR1=1T04:F$(I)="FILE"+STR*(I) 

254 0PEN6,8,6, "0: "+F$ ( I )■+•", S, W " : G0SUB99 
256 IFEN<20THEN260 

258 IFEN=63THENPRINTEM*; :CLOSES:CLOSE 15:PRINT" ON THIS DISK.":END 

259 PR INTEN;EM$,ET"-"ES:CLOSES:CLOSE 15:END 

260 INPUT "DATA (2 ITEMS-KEEP ’EM SHORT ) " ; D1 $, D2$ 

262 F'R I NT " WR IT ING "F$(I) : PR I NT#6, D1 $R$D2$R$F$ ( I ) 

264 CLOSES:NEXT 

266 PR I NT " HERE ’ S THE CHANGE IN THE DIRECTORY" : GOSUB IjOO: PR INTK1* 

268 GETK*:IFK*=""THEN268 

270 PRINT"CCLR3TO READ TEST FILES" 

272 FORI=1T04:F$(I> ="FILE"+STR*(I) 

274 OPENS,8,6,"0:"+F$ ( I)+",S,R":G0SUB99 
276 IFEN< 20THEN280 

278 I FEN=62THENF'R I NTEM$; : CLOSES: CLOSE 15: PRINT" NOT ON THIS DISK.": END 

279 PR INTEN;EM*,ET"-"ES:CLOSES:CLOSE 15:END 

280 I NF’UT#6, D1 $, D2$, D3$ 

232 PRINT"READING "F$(I) :PR INTD1$R$D2$R$D3$R$ 

284 CLOSES:NEXT 

286 PRINT"NO CHANGE IN THE DIRECTORY":GOSUB100:PRINTK1* 

288 GETK*:IFK*=""THEN28B 

300 PRINT" CCLR3-TO COMBINE THE TEST FILES" 

310 PRINT#15,"CO:COMBO 1=0:FILE 2,0:FILE 4" 

315 G0SUB99:IFEN<20THEN320 

316 PR INTEN;EM*,ET"-"ES:CL0SE6:CLOSE 15:END 
320 F'RINTR*R*"TO READ COMBO FILE" 

325 OPENS,8,6,"0:COMBO 1,S,R":G0SUB99 

326 IFEN<20THEN330 

327 PR INTEN;EM*,ET"-"ES:CLOSES:CLOSE 15:END 
330 I NF’UT#6 , D* : F’R I NTD* : I FST = 0THEN330 

335 PRI NT"READING COMPLETE":CLOSES 

340 PR I NT"HERE 7 S THE CHANGE IN THE DI RECTORY":G0SUB100: PR INTK1 * 

345 GETK*:IFK*=""THEN345 

350 PRINT"CCLRDTO COMBINE THE TEST FILES ANOTHER WAY" 


(Continued) 
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6330 


6330 (Confd) 


360 PRINT#15,"CO:COMBO 2=0:FILE 1,0:FILE 2,0:FILE 3" 

365 G0SUB99:IFEN<20THEN370 

366 PRINTEN; EM*, ET"-"ES: CL0SE6: CL0SE15: END 
370 PRINTR*R*"TO READ COMBO 2 FILE" 

375 0PEN6,8,6,"0:COMBO 2,S,R":G0SUB99 

376 IFENC20THEN380 

377 PRINTEN;EM*,ET"-"ES:CL0SE6:CLOSE15: END 
380 INPUT#6,D*:PR INTD*: IFST=0THEN380 

385 PRINT"READING COMPLETE":CL0SE6 

390 PR INT"HERE’S THE CHANGE IN THE DIRECTORY":GOSUB100:PR INTK1 * 
395 GETK*:IFK*=""THEN395 


Rem: 400 Rename 
450 Scratch 
470 Scratch 

400 PRINT”CCLRJTC RENAME A FILES" 

410 PR INT#15,"RO:HOLD=COMBO 1" 

415 G0SUB99: IFENC 20THEN420 

416 PRINTEN;EM*„ETES:CLOSES:CLOSE15: END 
420 PR INTR*R*"TO READ HOLD FILE" 

425 OPENS,8., 6, "0:HOLD,S,R":G0SUB99 

426 IFENC 20THEN430 

427 PRINTEN;EM*, ET " -"ES:CL0SE6:CLOSE15; END 
430 INPUT#6,D*:PR INTD*: IFST=0THEN430 

435 PRINT"READING COMPLETE":CL0SE6 

440 PR INT"HERE'S THE CHANGE IN THE DIRECTORY":GOSUB100:PR INTK1* 

445 GETK*:IFK*=""THEN445 

450 PRINT"CCLRJTO SCRATCH THE TEST FILES" 

451 PRINTR*R*" CREDJ {RVONJ WARNING ! ! CGRY1 J "R*R* 

452 PRINT"THIS PHASE WILL SCRATCH ALL FILES AND"R*"PROGRAMS WHOSE NAMES START"; 

453 PRINT" WITH -CRVONJFILE "R*K2* 

455 GETK*:IFK*=""THEN455 

456 I FK*= " " THENCL0SE6: CLOSE 15: END 

457 IFK*C>R*THEN455 

460 PRINT#15,"SO:FILE ?" 

461 G0SUB99:IFENC20THEN464 

462 PRINTEN;EM*,ET"—"ES:CLOSES:CL0SE15:END 

464 PR INTET;EM*R*K1 * 

465 GETK*:IFK*=""THEN465 

466 GOSUB100:PRINTK1 * 

468 GETK*:IFK*=""THEN468 

470 PRINT"-CCLRJ TO SCRATCH THE COMBO FILES" 

471 PRINTR*R*"CREDJCRVONJ WARNING ! ! CGRY1J"R*R* 

472 PR INT"THIS PHASE WILL SCRATCH ALL FILES AND"R*"PROGRAMS WHOSE NAMES START"; 

473 PRINT" WITH CRVONJCOMBO "R*K2* 

475 GETK*:IFK*=""THEN475 

476 IFK*="«-"THENCL0SE6: CLOSE 15: END 

477 IFK* >R*THEN475 

480 PRINT#15,"SO:COMBO ?" 

485 G0SUB99:IFENC20THEN487 

486 PRINTEN;EM*,ET"-"ES:CLOSES:CLOSE 15: END 

487 PR INTET;EM*R*K1 * 

488 GETK*:IFK*=""THEN488 

489 GOSUB100:PRINTR*"END OF CRVONJCOMMAND DEMO"R*R*"DON ? T FORGET TO SCRATCH CRVO 
NJ HOLD CRVOF J. " 

490 PR INT"USE COMMAND BELOW IF CWEDGE> ACT IVE"R*R*"@SsHOLD" 
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6340 — 6341 


6340 Explanation of COMMAND DEMO 


Rem: With few exceptions, explanations will be limited to those lines that affect files or the drive. If your pro¬ 
gramming skills are very limited you may wish to tackle RELATIVE FILES(7000) first. Come back here later. 


Rem: Unlike other programs in this text, the subroutines have been placed at the beginning of the program. 
Although such is not the case here, in very long programs, time can be saved with this technique. 


Rem: You’ll notice that this program has been “crunched” a great deal more than most of the other file pro¬ 
grams. Hope that the explanation isn’t too hard to follow. 


Rem: If you are a beginner, don’t worry if you don’t understand everything the first time around. You can go 
on to RELATIVE FILE (7000). 


Rem: As usual references to the text are enclosed in “( )” but those to lines in this program are not. 


Rem: Commands from (4000) are in lines 220, 310, 360*, 410, 460, 480*. 


6341 INITIAL SET UP 

10 REM ******** COMMAND DEMO ******** 

15 GOTO150 

99 INPUT#15,EN,EM$,ET, ES: RETURN 

t t t T 

Error Sector 
Error Track 
Error Message String 
Error Number 

File Number of Command/ErrorChannel. The file will be opened before we call this subrou¬ 
tine. 


Rem: The Subroutine, lines 100 - 140, is explained in (6347) with extension in 6400. 


150-210 are simple for screen display. (6330). Simply keep in mindthatR$=CHR$(13) is the carridge return. 
R$ is used throughout to control the display and for file data format. (5430), (6263) 


220 OPEN15,8,15,"I":G0SUB99:IFEN<20THEN230 

t I t 

All is well 

error channel 
read routine 


Opens the command channel and INITIALIZES (4300) the disk. The user’s data disk could get turned 
into a real mess if its ID code happened to match that of the disk from which the program was loaded. 
(Whew! They tell me to never end a sentence with a preposition). 

225 PRINTEN;EM*,ET"-"ES:CLOSE15s END 

The error channel read routine will pick up errors. Those commonly expected are 74 DriveNot Ready(user 
forgot to insert the disk or close the door, etc.) and possible some in the 20’s (user forgot to format disk). Other 
causes are possible of course. 2 


* - Not included in this section since they are repititious. See main listing (6320). 
2 - Hardware failure, damaged disk, etc. Use 9500 and/or your manual. 
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6341 (Cont’d) 


230 PRINT"DISK DIRECTORY"R*R* s GOSUB100 s PRINTK2* 

240 GETK*:IFK*=""THEN240 

241 I FK*» " *- " THENCLOSE151 END 

242 IFK*OR*THEN240 


user message line 155 
directory view (6347) 


240 - 242 is a more sophisticated “wait for user" routine. We could call it a mini menu. Notice 241 closes the 
command channel if the user chooses to abort. 


6342 FILE WRITE 


250 PRINT" {CLRJTO WRITE TEST FILES" suM^HLEl 

252 FORI = 1T04:F*(I)="FILE"+STR*<I> ^ FILE3 

254 0PEN6 ,8,6, "Ox " +F *(I) + ",S,W": G0SUB99 file 4 

i i during passes through the loop. 


Opens a channel for writing 

a sequential file. (6120) error read routine 


256 I FEN< 20THEN260 - -all clear. Line 260 starts data input. 


258 IFEN~63THENPRINTEM*;:CL0SE6:CLOSE15s PRINT" ON THIS DISK."I END 



FILE EXISTS data command special message 


Here we give the user a special message. In other kinds of programs we might branch to the menu or some 
special place in the program. 

259 PRINTEN?EM*,ET”-”ESi CL0SE6:CLOSE15 s END 

This is the standard error message. Like line 258 we need not end the program. The main purpose of lines 
258 and 259 is to show you that such things can be done. 


260 INPUT“DATA(2 ITEMS-KEEP ? EM SHORT)" 5 Dl*,D2* 
262 PRINT”WRITING ”F*(I) 2 PRINT# 6 ,D1*R*D2*R*F*(I) 


file name from 252 

carridge returns for file data format (6263) 
file number of data channel from 254 


264 CL0SE6:NEXT 

t 


We must CLOSE the file before we repeat the loop. (6143). If you like experiments, switch, i.e. Use 
NEXT:CLOSE6. Run the program.-Use the SCRATCH command (4500) to clean up the mess. Remember that 
* in the directory denotes a file that has been left open. (6253) 
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6342 — 6345 


6342 (Cont’d) 


266 

268 


PRINT"HERE’S THE CHANGE IN THE DIRECTORY" 
GETK*:IFK*=""THEN268 


GOSUB 1 00 s PRINTK 1* 

t t 

message line 152 


view directory (6347) 


Compare this routine to that in 230 - 242 


6343 FILE READ 


Lines 270-288 parallel one another. Rather than repeat, I suggest you turn to those lines in the main listing, 
(6330) and compare them line-by-line. 

254 & 274, 258 & 278, 260 & 280, 262 & 282 


6344 COMBINE FILES Copy to append (4800) 


Rem: COMMAND DEMO finally starts to demonstrate commands. * 


310 PRINT#15,"COsCOMBO 1=0:FILE 2,0:FILE 4" 

t t 

COPY The COPY command operates much like string addition. The format 

is just a bit messier. The manual says we can combine up to four files, 
file number of command When I tried that with these file names, I got 32 SYNTAX ERROR, 

channel not data channel (command too long). Try it with shorter file names when you get a 

chance. 


330 INPUT #6 , D$ s PR I NTD$ s IFST=0THEN330 Part of the READ COMBO 1. 

t 

STATUS 

This line shows a more elegant way of finding the end of a file than the flag system used in (6200). 


ST = 0 means there is more in the file. 


ST = 64 signals the end of the file. 
350 - 395 are a repetition of 300 - 345. 


6345 RENAME (4600) 


410 PRI NT# 15,"ROsHOLD=COMBO 1 


RENAME 




file number of 
command channel 
not data channel 


£ I likethiscommand. I used itto rename my«wedge» 


C with a single letter name. I’m lazy. 

k a. 


y 


* - Lines 300, 315 - 327, 335 - 345 are basic BASIC or similar lines have already been described. 
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6346 — 6347 


6346 SCRATCH (4500) 


450 PRINT*(CLRJTQ SCRATCH THE TEST FILES* 

451 PRINTRSRS*fRED>{RVON> U A R N I N 

452 PRINT'THIS PHASE HILL SCRATCH ALL FILES 


6 ! ! {6RY1}*R»R* 

AND'Rt'PRQGRAHS WHOSE NAHES START'; 


I do believe in giving users fair warning. If I had a 
nickel for ever time I ignored one of my own warnings. 


460 F*R I NT#15, M SO s F ILE 


file number of 
command channel 
not data channel 


wild card symbol (4532) 


Lines 470- 488 parallel 450- 468 but SCRATCH the files that match COMBO? instead. 486 shows how we 
can use the output from the error read routine as a “user” message. 


The End - we are stuck with HOLD in the directory. 489 - 490 are user convenience lines. 


6347 Subroutine* 

100 REM *** VIEW DIRECTORY ***-«- Subroutine 


Rem: This subroutine was adapted from “DIR” on the “TEST/DEMO” disk. If you are still a beginner pro¬ 
grammer, don’t worry if there are parts in here that you don’t quite “get.” Keep thinking, it will come. If you 
are a bit more advanced, the mechanics should not present any major problems. You’ll need a careful study 
of (0270) with special attention to directory charts. The following section (6400) addresses some of the 
contradictions you may spot as you go. 


101 OPEN 1,8,0, n $" : P*="# M 

T t 

fillers that you saw in the directory display. 


notice that the channel is one of those usually reserved for DOS (5312). Recall that the directory is 
not really a data file and that it can be loaded like a program (1201). 


102 GET#1 ^$,6$ 

105 GET#1,A*,B* 

106 GET#1 „ A$., 


These lines skip past information in the directory entry or header 
that we don’t need to see in normal operations. 


110 C=0: IFA$< >""THENC-ASC(A$) 

112 IFB*<>" H THENC = C+ASC <B$)*256 
114 PRINTC;TAB (5); 


Here it computes the number of blocks used by the 
file. (7335) contains more information on lo and hi 
bytes. 


116 GET# 1 , B$: IFST< >0THEN140 140 is the end of the subroutine. 

The STATUS function is used as in line 330 (6344) to see if the job is done. 


(Continued) 
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6347 — 6348 


6347 (Cont’d) 


1 18 I FB$=CHR$ (34) THENF'R I NTB$; It’s looking for the 1st quote mark in the file name. 

119 IFB*<>CHR$(34)THEN116 

CHR$(34) is a quote mark. i.e. 34 is the ASCII code for “. 

120 GET#1,B*: IFB*< >CHR* (34) THENPRINTB*; : GOTO 120 

If it finds something other than a quote mark, it prints it and repeats. This is the file name in the directory. 
122 IFB$~CHR$< 34 ) THENPRINTB$ ; It finds the last quote mark. 

130 GET#1,B$:IFB*=CHR$(32)THENPRINTP*;:GOTO130 

I 

the marker from line 101 

Space is always reserved for file name. (32 is ASCII for a space). 


132 PR I NTTAB ( 32 ) ; : C$= " " Here it’s getting the file type 

134 C$=C$+B$: GET #1 , B$: IFB$< >" "THEN 134 (SEQ, PRO etc) or ID code if still 

’ in header. 

136 PRINTLEFT*(C*,3) 


138 IFST=OTHEN105 


If there is more in the rile, it goes to 105 to skip 
2 bytes and continue getting characters. 


140 


PRINT" BLOCKS FREE ":CLOSE1:RETURN 


t 

Or the program will stop at the next request 


6348 The Truth 


Rem: This program has bothered me for some time. I promised I’d tell you when I wasn’t completely sure of 
something and this is one of those times. 


The routine itself is too useful to omit because I’m not 100% sure of why it works. We know it works and that’s 
enough for most people. If you don’t want to open a can of worms, skip the rest of this chapter. 
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6349 — 6422 


6349 The Problems (0260 and 0270) 


1) The most obvious problem if you’ve studied (0273) is where are the 3 bytes that are used for file type? 
They are on my screen but not in (0273). There is the one byte at the beginning that denotes file type 
and indicates a closed file. This program is not “fancy” enough 2 to do anything with that. I’m wondering 
if they are hiding in the “unused” part. 


2) The “spacers,” lines 102-106, are the real key to the whole thing. Notice that on the 1 st pass 4 bytes are 
skipped and on subsequent passes (hitting line 138) only 2 are skipped. These bytes appear to be the 
2 bytes between directory entries (0272) that we would encounter during all but the 1 st pass. There 
are other pairs of bytes that we don’t see in the 30 byte directory entry. 


How the first pass works with the directory header is what really has me going. The directory header is supp¬ 
osed to start on Track 18, sector 0, byte 144. If it does, and lines 102 -105 skip4 bytes the program must start 
earlier than byte 144. BAM (0271) is supposed to occupy those bytes and we do have a problem. 


The questions... 


1) Where on Track 18, Sector 0 does this program start or does the header really start at byte 144? 

2) Does using the DOS channel 0 have anything to do with it? 

3) Are the file type characters in the 30 bytes for directory entry after all? 


6400 “A can of worms” 


Rem: This section is for those whose curiosity got really piqued by (6349). Most users will want to put this 
section on a back burner. If you’re not real excited about this go on to RELATIVE FILES. 


Rem: If you want simple answers to the questions in (6349) I fear you’ll be disappointed. The program only 
gives you the tools for exploration. Only one of the questions will be answered and more questions will be 
raised. 


6410 


6420 


6421 


Program Objectives 

Present a more thorough view of the directory 
Provide hard copy of same. 

User Instructions: 

Hardware requirements: (optional) 

I n addition to your usual system a 1525 printer or other printer with a suitable interface would be nice but is 
NOT required. 



Printer NOT required but useful 


6422 Name: EXP*-PRINT 


load type: (normal) 


2 - It’s not playing any binary AND/OR game with bits within the byte. 
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6423 — 6430 


6423 Load the program. 


6424 If you do not want a screen dump of the results, remove the “REM” from line 999. 


Warning. The screen dump routine 2 is in BASIC and is very slow. You may want to try the program without 
the printout a few times. If you have a better screen dump routine, you may wish to replace this one. 


If you do not remove the “REM” from 999 and you do not have a printer, it’s no big deal. Your program will 
simply end with a “device not present” message. 


If you do have a printer, pull a listing of the directory part of the program. It will be easier to study that way. 


double spaced 

0PEN200,4:CMD200 
LIST-150 

PRINT#200s CL0SE200 


single spaced 

0PEN4,4:CMD4 
LIST-150 
PRINT#4s CL0SE4 


6430 LISTING of EXP*-PRINT 


Rem: The line numbers correspond to those used in COMMAND DEMO. Many have been changed but bas¬ 
ically perform the same task A few have been added. 


100 n*="0123456789 123456789 123456789 123456789" 

101 print" CCLR> "n* s open 1,8, 0, : x$="@" : y*="*" : z$="#" 

102 get #1,a$,b$:print"12"asc(a$+chr$(0))asc(b$+chr$<0>) 

105 get #1,a$,b$:print"34"asc(a$+chr$(0))asc(b$+chr$(0)) 

106 get #l,a$,b$ 

107 ifa*=""thenprint"a"; 

108 i f b$=" "thenpri nt"b" ; 

110 c=0:ifa$<>""thenc=asc <a$) 

111 i f a$< >" "thenpri ntasc (a$) 

112 ifb$<>""thenc=c+asc(b*>*256 

113 if b$< >""thenprintasc (b$) 

114 printmid$(str$(c),2) 

116 get#l, b$:if st< >0then140 

117 ifb$=chr$(32)thenprint"."; 

118 ifb*=chr$(34)thenprint"C "; 

119 ifb$<>chr$(34)then 1 16 

120 get #1,b$:ifb$<>chr$(34)thenprintb$goto120 
122 ifb$=chr$(34)thenprint"D"; 

130 get #1,b$:ifb$=chr$(32)thenprinty$; : gotol30 
132 c$="" 

134 c*=c*+b$:get #1,b*:ifb$<>""then 134 
136 print1eft$(c$„ 3)z$ 

138 ifst=0then105 

140 print" blocks free":closel 

150 rem end 


(Continued) 


- Adapted from the 1525 User’s Manual. Corrections have been made. 






6430 — 6440 


6430 (Cont’d) 


999 rem end 2 

1000 rem ***** screen dump ***** 

1010 si*=chr$(15):b*=chr*(8):po*=chr$(16) 

1020 rvt=chr$(18):ro$=chr$(146):qt*=chr*(34) 
1030 mf$=chr*(145):vr=peek(648)*256 
1040 open4,4:print#4 

1050 f orcl =0to24: qf =0: as$=mr$: f orro=0to39 
1060 sc=peek(vr+40*cl+ro) 

1070 ifsc=34thenqf=1-qf 
1080 ifsc<>162thenl110 

1090 qf = l-qf:ifqf = lthenas$=a5$+rv$+qt$:gotol 170 
1110 ifqf=land(sc>=128)thensc=sc-128:gotol130 
1120 ifsc>=128thensc=sc-128:rf=1:as$=as$+rv$ 

1130 ifsc<32orsc>95thenas=sc+64:gdtol160 
1140 ifsc >31andsc<64thenas=sc:gotol160 
1150 ifsc >63andsc<96thenas=sc+32:gotol160 
1160 as$=as$+chr$(as) 

1170 ifrf=lthenas$=as$+ro$:rf=0 
1180 nextro 

1190 ifqf=0thenprint#4,si$po$"20"as$:gotol210 
1200 print#4,si$+po$+"20"+as$+as$+qt$ 

1210 nextcl:print#4, si close4 


6440 SAMPLE RUN 


Rem: 3-digit numbers refer to lines in EXP*— PRINT rather than COMMAND DEMO 


0123456789 123456789 123456789 


123456789 

X 


column counter 


line 102-► 12 1 4 

line 105-► 34 1 1 

136 

\ - 120 -1 \ I 

ABOUCFOR TESTING !3*F1 # 



107 


??????????? 


DIRECTORY HEADER 


(Continued) 


2 - Adapted from the 1525 USER’S MANUAL. Corrections have been made. 
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6440 


6440 (Cont’d) 


105 -► 34 1 1 

B 15 

t t 

108 

111 


FILLER 

LENGTH of FILE found here 
printed below. 


114 j-120- 

15® ■ ■ C COMMAND DEMO 



118 


130 


1 

8 D ***PRG# 

l 


DIRECTORY ENTRY 


105 


34 1 
B 5 

11 

108 

110 


FILLER 


5H. . . E EXP$—PRINT ]*******PRG# 

105-► 34 1 1 

B 14 

14®. . CCOMMAND DEMO 7 3***PRG# 

105-► 34 1 1 

B 5 

5®. . . C EXP*-PRINT23******PRG# 

105-► 34 1 1 


ENTRIES 

& 

FILLER AS ABOVE 


108 not applicable 


111 -► 1 02 

113- ► 2 

136- ^614® 



138 





6450 — 6459 


6450 AFTERTHOUGHTS 


The questions in (6349)... 


6451 1) If the header's first quote is at byte 144, the program doesn’t start there. The program starts 6 bytes in 

front of that quote mark Lines 107 and 108 show two empty bytes in front of the quote mark Sorry that I 
don’t have the Knowledge to answer. 


6452 2) This program does not work with other channels. Try it. Also try it with the name of a program instead of $ 

in line 101. 


6453 3) Those eharacters(PRG, SEQ, REL) come through loud and clear just before we skip the two bytes in 105. 

I played with the program a bit. Look at the results in 6460. 


6454 A new question... 


Are the bytes for the length of the file reallyattheend as shown in (0273)? I thought I had that 
resolved but a few more tests will be necessary. 


6455 A surprise... 


The DOS keeps track of the blocks free where we would expect to find the length of the next file. I knew it had 
to be someplace but was never sure which. 


6456 Something I should have known... 


The value of C from 110-114 accounts for the 0 we always see in front of the header. This 0 conveniently 
prevents lock ups when we try to “run the directory.” 


6457 Another new question... 


Why do there always seem to be 14 passes through 117? Just before the directory file ends? 


6458 What I’d like to do now... 


1) Use random files and ASCII translations to do a thorough examination of Track 18, Sector 0 and Sector 
1.1 fear I’d need a computer to analyze the results. 


2) Get ahold of the original author of this program and the 1541 DOS designer and get some reliable infor¬ 
mation. I’m seriously bothered by possible inaccuracies in all of (0270). At least it gives us an idea of how 
things may work 


3) Count the characters it “GETS” but does not do anything with during each part of the program. 


6459 Notice: An effective, elegant and efficient program is not always easy-to-follow. 


139 




6460 — 6499 


6460 


6461 


6462 


6463 


6499 


“That’s all she wrote” 


The RUN 


0123456789 123456789 123456789 123456789 


12 1 4 34 1 1 ABO@ C BACKUP2 

78 N2 #34 1 1 B 22 

22@. . L ON LOADING 3*******<r- 80 

PRG#34 

3 *«- 

1 1 

B 49 

49@. . CGB 3 #***#*#*##*###*«- 

80 

PRG#34 

1 

1 

B 11 

11S..EN1143**********#***- 

82 

REL#34 

1 

1 

B 1 

I®. . . E SN1143#*#*****#****- 

B3 

SEQ#34 

1 

1 

B 4 

4@. . . E 1 14PAGE AFRP3*****^ 

80 

PRG#34 

1 

1 

B 1 

1I3...C 01143**#****#****«- 

83 

SEQ#34 

1 

1 

B 1 

1@. . . C 1 114 3 ***#**#**##*«- 

83 

SEQ#34 

1 

1 


B 1 

RUN1000 


The numbers following 
the left arrows are due 
to 130 below. 131 
doesn’t seem to happen 
here. Do you see what 
I see? 

80 PRG 

82 REL 

83 SEQ 

Try with several disks. 
The 78 after the header 
is not consistent like 
the 80, 82 and 83. 

File type? ? ? ? ? 


The Changes to EXP-PRINT 

116 GET#1,B*:IFST< >0THENPRINT"116 GOTO140 

just a flag to make sure 116 ends the program i.e. sencte to 140. 


130 GET # 1, B* : IFB*< >" " ANDB*< >CHR* (32) THENPRINT" " ASC <B*> ; 

131 IFB*=" "THENPRINT "W ; 

132 IFB*=CHR*(32)THENPRIN.Y*;:GOTO130 

133 C*="" 

Account for the changes in the display. 


P.S. See if removing LEFTS from 1 36 picks up the DOS and format type. (The 2 A we usually see in thedirect- 
ory header. 


Rem: I played with E XP$-~PR I NT a bit and gotthese results. I’m sorry to leave you with acan of worms 
but if I wait until all conflicts are resolved this book will come out when you are in fact a computer. That’s really 
the joy of these silly things. The more you know, the more there is to know. 
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7000 — 7110 


7000 RELATIVE FILES 

CHAPTER DIRECTORY 

7100 REL FILES in GENERAL 

7110 Overview 

7120 Anatomy/Vocabulary 

7130 Records 

7140 Command Format and Function 

7150 Special Error Messages 

7200 “GEN REL” ■ Sample Program 

7210 Program Objectives 

7220 Job Descriptions 

7230 User Instructions - Preliminary 

7240 User Instructions - First Run 

7250 User Instructions - General 

7260 Record Structure 

7270 User Adaptations 

7280 Unwanted Relative Files 

7300 “GEN REL” - Detailed Explanation 

7310 Initial Set Up 

7320 Jobs 

7330 Subroutines 

7340 Secondary Program 

7400 “GEN REL” - Complete Listing 


7100 Relative Files in General 


Rem: Relative Files allow user access to individual records and even to fields within those records. The rest 
of this section is devoted to qualities regarding relative filea You may find it necessary to refer to DATA FILES 
in GENERAL (5000) especially (5120), (5200) and (5300). 

Feel free to postpone this section until after 7200. You can make 
use of the sample program even if you have no interest in program¬ 
ming. 


7110 Procedure Overview 



error conditions. 
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7111 


7122 


7111 Notice - unlike sequential files (6110) we need not close and reopen when we change from read to write or 
vice versa 


7112 Notice - we do have to “position” a pointer prior to each operation (unless we want to work in sequence). The 

open to command is REQUI RED for relative file operation and not just to check for errors. (7143) 


7113 Notice the frequent reading of the command (error) channel. At times we’ll be looking for special mess¬ 
ages. (7150) 

7120 ANATOMY & VOCABULARY 


Relative files use two kinds of sectors. 


SIDE SECTORS 



DATA SECTORS 


7121 DATA SECTORS are structured in the usual manner, ie. 2 bytes for track and sector of next data sector and 
254 bytes for data. (235) 


7122 SIDE SECTORS are peculiar to relative files for DOS bookkeeping. Each of the six side sectors contains: 


Track and sector of next side sector 
its own number 
record length 

location table (track and sector of all six side sectors 
pointers to 120 data blocks (track and sector) 


6 side sectors * 120 datablocks = 720 data blocks 
sidesector 


664 blocks free - 6 side sectors = 658 data blocks 

Theoretically we can access more blocks than the disk contains. 5 side sectors would allow access to only 
(5*120) = 600 blocks, hence the extra. 

658 blocks for data * 254 data byte = 167,132 bytes for data, 
block 



2 bytes 
1 byte 
1 byte 
12 bytes 
240 bytes 
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7130 — 7141 


7130 RECORDS 


Rem: A record is simply a batch of data, but the concept of an individual record is critical to relative files. Al¬ 
though the following are explored in detail in later sections, a few generalities are in order now. 


7131 RECORD LENGTH (254 byte maximum) 


All records in a particular relative file are of equal length. When the file is created, this number is placed in 
the directory entry. The record length as set by the programmer is also contained in each side sector used. 


When the record length does not divide 254 evenly, records will “span” sectors. Fortunately the DOS takes 
care of the bookkeeping so this overlapping from one sector to the next is not a programmer problem. 


7132 RECORD NUMBER (??max) 


The programmer usually assigns a number to each record. To get at a particular record, the number and a sim¬ 
ple algorithm are used to “position” the pointer. (7335) 

A balance between record length and data blocks available determine the maximum number of records poss¬ 
ible in a relative file. (7273) 


7133 FI ELDS are subdivisions of records. Field lengths may vary within records from a single byte to the length of 
the record. The programmer must consider these variations when positioning for read or write operations. 
I ndividual fields can be accessed for both reading and writing. There are some cautions on writing fields (7322). 
Field structure may vary from record to record so long as the programmer accounts for differences in read 
and write operations. The programmer should consider a balance between adequate room for user input 
and too much dead space. In relative files, unused bytes are padded since record length remains constant 
throughout the file. When setting field lengths, the programmer must allow room for “separations” (carriage 
return or comma, (5400). See also Record Structure (7273). 


7140 Command Format & Function 

Rem: This section is intended as a general reference. The best road to mastery is the sample program, 
(7200), then the detailed explanation (7300) 


7141 OPEN to Create and/or Use 


format: 


or 


OPENfn,dv,ch,“file name, L,”+CHR$(/) 


/ 

file type 

/ 




j OPENfr),di',ch,ft/S+“,L,”+CHR$(/) | 


record length 


parameters: fn = file number, dv = device number, ch = data channel number as described in “FILES” (5310) 
“file name” or N$ is the name of the file. 

“,L,” indicates relative file type, (compare to “,S,” in 6120 & 6130) 

/ = length of each record in the file. 


function: if no file of the name specified exists on the disk, this command creates the directory entry and opens 
the usual communication link. With relative files the length of each record and the location of the 1 st side sec¬ 
tor are included in addition to the usual information. (273) 

If a relative file of the name and length specified exists, this command simply opens the communication link 
and can be replaced by the short form below. 

Disagreement of file type or record length results in an error condition. 
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7142 — 7144 


7142 OPEN to Use 


format: 


O PE N fn,dv, c/7,‘7/7e name ” 


or 


OPEWn,dvj,ch,N$ 


parameters: as on previous page (7141) 


function: If a relative file by the name specified exists on the disk, this command opens the communication 
link. The DOS checks file type and reads record length from the directory entry. This command can be used 
in a file examine routine if the name but not record length is known. (7340) 


7143 “Position” to any record 


Rem: Assume the command, 


OPEN 15,8,15 


has been sent to open the command channel. 


format: 


PRINT# 15 ,“P”CHR$(c/?)CHR$(/ o)CHR$(/?/) 


parameters: 15 = file number in the OPEN command channel statement. 
“P” = command message string (5330) 
c /7 = channel number of the relative data file 
lo = low byte of record number (7335) 
hi = high byte of record number (7335) 



Function: This command “positions” a pointer to the beginning of the record determined by lo and hi 2 . It, or 
the command below, is sent before read or write operations. If not used, the file will be accessed sequenti¬ 
ally, starting with Record # 1. 


7144 “Position” to any byte within record. 


format: PRINT#75,“P”CHR$(c/7)CHR$(/o)CHR$(/7/)CHR$(p) 


parameters: p = byte number as counted from the beginning of the record (7260). 

Others as above. 

function: This command positions the pointer to the byte(p) of the record number specified (lo &hi). Ifp = 1 
this command is equivalent to the command above (7133). 


2 These parameters are described in detail in (7335) 
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7145 — 7153 


7145 Other Commands. 


After “positioning,” these read/write commands are used in the nor¬ 
mal manner (5330), (5340), (5400) and sample programs (7300 and 
6220) 


fn = file number of relative file 


This command is critical (as usual). Unlike sequential files we need 
not close and reopen to change operations (5320) 


7150 Special Errors Messages 


Rem: These messages can be used as programmer/user protectors rather than “foul up” indicators. (Con¬ 
sider a user spending hours typing data into a file only to find that there ain’t enough room in the disk for the 
last 2 records). 


7151 File Creation: 


After the “Open to Create” command, it is normal practice to position the pointer to the last anticipated re¬ 
cord inthefile. The DOS will then mark off room on the disk. It marks the first byte of the record and pads the 
remaining bytes. If the DOS cannot find room on the disk it will send error #52 - “file too large”. The user will 
know that either the number of records must be reduced or a disk change is required. Records so marked 
“exist” but are not written. Records marked by the position command can be written. Use of INPUT# can 
cause a “string too long” BASIC error condition. 


7152 File Expansion: 


CLOSED 


PRINT#//?, - -- 
INPUT#/n, - - 
GET#//?, - - - 


If the pointer is “positioned” past the end of the file, error # 50 - “record not present” pops up to say the re¬ 
cord does not exist. It’s fairto write this record. If this is done all intermediate recordsare marked as describ¬ 
ed above. This “expands” the file, of course making sure that there is room for it. Neither INPUT# or GET# 
can be used. Error # 50 will just come right back. Print # is allowed. The sample program shows how to ex-' 
tend the “error channel read” routines for use with relative files. (7338) 


7153 The DOS will send error# 51 - “Overflow in record” if the prog rammer allows the user to write too much infor¬ 
mation into a record in one PRINT# statement 2 . The sample program shows how to protect the user and pre¬ 
vent the problem. (7332). 


2 - It does not seem to protect us from writing too much when we use more than one PRI NT# statement. Guess it can’t do 
everything! 
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7200 — 7221 


7200 SAMPLE PROGRAM - “GEN REL” 




"t .■«*! • n Please cover this section in sequence. ^ 
User foul ups can damage files. 


ince. 3- 


uatsi IUUI U|JO oem Udmciyc mco. 


Rem: “GEN REL” (GENeral RELative file program) is intended to provide experience in using a file manage¬ 
ment program, an easily adaptable program, and a learning experience in writing relative file programs. 


7210 PROGRAM OBJECTIVES 

Rem: “GEN REL” is divided into two parts. The user friendly main program is for userfile tasks and the sec¬ 
ondary program is for the user in trouble and the explorer. 

The main program enables the user to 

1) Create new files, expand existing files and change from file to file during operation 

2) Read and write records individually and in sequence 

3) Edit records and individual fields within those records 

4) Easily adapt the program to individual needs 


The main program protects the userfrom reading unwritten and/or non-existent records and from inadver¬ 
tently overwriting existing records. It also provides numerous job escape options. 


The secondary program allows the user to examine parts of the file character by character without loading 
over the main program. 


7220 JOB DESCRIPTIONS 


When selected, the system requests the number of records anticipated (N). The user should allow a few ex¬ 
tra and not this number for later reference. 


The system will place a marker in the first position of each record from record #1 to record #N as selected. 
Records so marked are referred to as “existing” but “not written” (does not contain data). 

This job must be done before the program will allow read or write operations. 

> rA / nv , AVVVV' / v*T JV Wii ) 

2-m-' CAUTION: If Job # 1 - CREATE NEW FILE is used on an existing JL 
fllG ’ data ' n records # 1 ■ * N will be destroyed! ^ 

Is* ^ ^ *^/**Al - - 5 _ * i aa > a x ^ x rv iv 


Is* ^ ^ . 5 * k A Jk 4 A A ^ K ^ K 

/v. '' v \r /v \r vv K v v 
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7222 — 7225 


7222 


exp find file 


When selected, the system requests the current last record #, S and the number of records to be added, A. 


The system will mark off the records from #S+1to#S+1+A 

ex. If the last record was S = 50 and the user inputs A = 8 to be added, the system marks 51,52,..., 58. 




CAUTION: If Job #2 - EXPAND FILE is used on an 
existing file, data in records marked will be lost! > 

V V v* 



7223 


i l::. 1N 'oh UUfc.NL E 


When this job is selected, the system request a starting and an ending record number. The records are 
then presented for writing along with the data category readins and the allowed input length. The process 
continues until the system finishes or encounters an unwritten (# ‘not written’) or a not existent record, 
(# ‘not present’). If either of the latter is encountered, the user is automatically returned to the menu. A warn¬ 
ing and an escape option are preented when the system finds a record that already contains data. (# ‘has 
been written’). (See below for individual record writing techniques). 


7224 HR ITE I MI) IVI DUAL RECORD 


When this job is selected, the system requests a record number. After input, the escape option and a warn¬ 
ing if the record already contains data is presented. If the user elects to continue, the record is presented for 
writing. Data category headings and maximum input lengths are shown on the screen, one at a time. The user 
may enter any characters EXCEPT a colon (:) or a(;). Either of thesewill cause problems in “send” operations. 
If the user enters more characters than the length specified the program will truncate. 

CAUTION: When using “WRITE” operations, do NOT input a colon(:) or a semi-colon (;). Attempts 


at reading records containing these will cause the system to “hang up.” If such is the problem 
“RUN/STOP” key with “RESTORE” key. Follow with “CLOSE 3” in direct mode to secure 


^ CAUTION- Writp nnprptinns: rpn 


>roblem use 
urefile. 

'JAT r 


CAUTION: Write operations replace any existing data with the new data. 





7225 


This job is similar to job # 3 in all matters except that instead of presenting records for writing, the contents 
are printed to the screen. The system waits for the user before the next record is presented. It returns to the 
menu when finished, directed by the user, or when a nonexistant and/oran unwritten record is encountered. 
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7227 


7228 


7229 


7230 


7231 


This job allows the user to attempt to read any record. If the record has been written it is displayed on the 
screen. If not, the user is returned to the menu. The ‘not present’ message means that the record has not 
been marked by job # 1 or job # 2. i.e. The record does not exist. The ‘not written’ message means the re¬ 
cord has been marked but that it contains no data and is safe for writing. 


EDIT EXISTING RECORD 


Thisjob allows the user to change an entire record (equivalent to job #4) or change individual fields in the re¬ 
cord. When selected, the system asks for a record number, prints the contents of that record to the screen, 
and presents an “edit menu.” The system will return to“the” menu if the record has not been written. The edit 
menu includes a“change none,” a “change all” and a“changefield” set of options. Revised contents will be 
printed until the user selects “change none” to return to the main menu. 


CHANGE FILE 


When selected, the system asks for a file name and the program begins with the menu, (see “program flow” 
(7232). The user may then operate on that file. 


END RUN 


Closes relative data file and command channel and the computer says “READY.” 


USER INSTRUCTIONS - Preliminary 


Rem: Whenever you are dealing with files it is a good idea to activate your “WEDGE.” (1230). Be sure to work 
through “First Run” (7240) before doing anything else with the program. 


PRELIMARY DATA 


Program Name: GEN ERL 


Load Type: Normal 


Special Running Instructions: Main Program - p| 


Secondary Program - 





7232 — 7242 


7232 PROGRAM FLOW 


Rem: This is a general description of what happens after you type RUN. You get to do it on the next page so be 
patient just a little while longer. 


Main program: File Format presentation 

File Name INPUT 

-MENU presentation - 

Job selection 

-Task performance - 

End Run when selected 
or at unscheduled error 
condition. 


7240 


7241 


Secondary program: 


INPUT-file name 

starting record number 
number of characters to view 
End run when file exhausted, user 
request, or unscheduled 
error condition. 



USER INSTRUCTIONS - First Run 


Rem: This section assumes that the sample file 
“GR SAMPLE” has not been altered, i.e., No 
previous user has performed any operation except 
reads, change file, or end run. If things do not 
go as described, you may have to start with 
“secondary program.” (7249) 


TO LOAD and RUN PROGRAM 



Type: /GEN EEL 


or 


LOAD"GEN EEL",8 


if you cannot activate the wedge. 


J ype- RIJN 


7242 Now you see FILE FORMAT 2 . Data categories, lengths and starting positions are shown in a table. Don’t worry 
about these now 3 . All we’re going to do here is read the file. 


Type: C 


z ' File Format is explained in record structure (7260) and is used In user adaptation (7270). 
- Other processes will be described later (7250). 
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7243 — 7246 


7243 


The system is asking for a file name. Type carefully and check before hitting RETURN. A typing error here 
will cause an error condition if you happen to match another title in the directory, (unlikely), or will cause a 
directory entry for a new relative file. The latter is no tragedy. 2 


Type: OR SAMPLE 

The system will locate the file and wait. (Just hit a key and you have the “menu.”) 

7244 Now you have the MENU and the system is asking you to select a job. 



First we’ll read a single record. Job # 6 is the one we want. 


Type: «<-that for “Job # ” 


Now the system wants a record number. 


Type: ^- will read record # 2 


Follow directions when you get sick of looking at those very creative contents of record # 2. 


7246 Back to the menu. Notice that the system tells you what you did last. 


Type: 6 M - that’s for “Job # ” 


Type: 1 FI 4 for record # 


Whoops! back at the menu because record # 10 does not exist. 


Fool around with JOB # 6. By trial and error find out: 

1) Which record in GR SAMPLE exists but is “not written.” 3 

2) What is the last record in GR SAMPLE 


answers -4. 

( ' next page \ 

foot notes YJ 


2 - You can SCRATCH it whenever you want (4500). 

3 - (Unless GR SAMPLE has been altered) 
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7247 — 7249 


7247 This time we’ll READ 1N SEQUENCE 

Type: 5 <4 _ Job# 

The system wants a record number to start. 

Type: 5 < - to start reading with record # 5 

And, of course an ending # 

Type: 7 *4 - to end reading with record # 7 

As each record is presented you’ll have the option to return to the menu ( -if- ) or continue. Keep typing C’s. 

7248 Experiments with JOB # 5 

Rem: One way or another you should be back at the menu. If all else fails rerun the program. 

Try these sequences. In each case you’li see an automatic return to the menu. Notice the different messages 
Read the foot notes for an explanation. 

1) Job # 5, read record # 1 to record # 5 (returns after # 3) 2 

2) Job # 5, read record # 5 to record # 10 (returns after # 8) 3 

7249 SECONDARY PROGRAM 


Get to the menu and select job # 9 to end the run. 

Type: < - this will close the files. 

Type: R U M ci 0 0 0VI 

The program will want a file name, 

Type: \ ip SAMPLE: 

A starting number, 

Type: 1 


(Continued) 


2 - Record # 4 has been marked by JOB # 1 - CREATE but it contains no user data. 

3 - Record # 8 is the last record in the file. We'd have to use JOB # 2 before we’d be allowed to write record # 9. # 9 does 

not exist. 
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7249 — 7250 


7249 


7250 


(Cont’d) 

And last, a number of 
characters to “get” 


Type: 1000 


Here is what you’ll 
see if GR SAMPLE is 
intact. An error 
message will follow. 
Ignore it for now. 


HR SAMPLE 

SMITHH? Il :? S 5: § 11't i JOHN*-!? ?: SS 11*1 111 11 1 i 1 
1 •':••• 1 1 „ 1 1 ':-1. 1 1 1 67H 1 1 1 1 1 1 IJ l !ES H l 

2 FEB 674-222 2222^TRflNSFER^i i'lFlG IN HI I 

33-H-33 33 33*-333 333L!L.L...I..IMEtn.R 5-Hi * S 

3 3 3 3 h 1 !| .' 1 b. ■ | : , "3 3 3 3 !gi3!j 0!“j !gi 5 J3“g'j ' l : , ' , 3 „ i*;1 l : ;13~ 

MOV S^jii I? g 555 5555-H-JONE^UMBER GH g ?! £ g £ £ £ 

£ £ £ £ £ £ 3 £ 666 66 6666‘H. 2^"S „ 66 +-"€* .JN 
6 9 •<;■••£ 666 t;H‘. 1:6 T'j !•■•! E! i ::: ! r 1 ’! F" 1 L... E! £ £ £ £ g g g g g RE COR 


1j 


•*:" r' ; , 

g gg g £NF 

4 K:: i 7 £ 


i: xi-i o i J i-i e f;: g'g’g g'g'g g'g’soriF'L 

,:-g: g g g g g g g g O-c-g KK4 ,, 00^3 1 FEE60^0! 1 
34 56 7 0 9-ht 


USER INSTRUCTIONS - General 


Rem: If you have not completed the previous section, do so now. 


Rem: In this section we’ll explore the rest of the jobs in “GEN REL” by creating and writing another sample 
file. 

Rem: If this is your first time through these you’ll be 
creating a file called “PROJECT.” Special 
notes are in clouds. 


Type: 


■'UN 


Examine the file format to be sure it meets 
your needs. If so, continue. If not adapt (7270) 


The system now wants the file name. 
Think before typing. 


Type: (Name of file) 


£ 


vn r % 

PROJECT 

-A'-a ^ 
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7251 — 7252 


725i CREATE HEW FILE 



CAUTION: If used on existing file, records will be lost. 



When you see the menu, Y 


Type: 1 


You will see the job title and a warning. In general if you are not sure about the contents of the file it would be 
best to use the escape option and check by reading. 

If you chose to continue you now are told that the directory entry was already created. 

GEN REL is asking for the “anticipated number of records.” 


Allow a few more than you think you’ll need. 


Type: ( 


whatever 


f 6 for “PROJECT’ ) 


You have one more chance to escape. 

NOTE Chosen number for future reference. 

If you chose to continue, you’re back at the menu. 



7252 EXPAND FILE 


Job number 


You will see the job Title and a warning, 
in general. (7251) 




If you choose to continue, GEN REL asks 
for the current last record numbers. 




2 - If you did the last “Project,” just reRUN, “PROJECT’ for title. 
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7252 — 7253 


7252 


(Cont’d) 

When the system is finished marking those records, GEN REL returns you to the menu. 


7253 


Project: Use 9 for job number to end run. 


Type: RUHliI0@00 to run secondary program. 



Notice 10 stars and possibly some" /j ”s followed by 50-record not present. 


PROJECT' 

RH= 1 L= 1000 *— after JOB #2 

$ -iH^i -i;—:i|i; ■»•—;»|i: -ij— 


iGJECT 

•f :: 1 L= 10103 

...jijj; -ij-jiji; \\- 


before JOB # 2 



GEN REL asks for an ending record number. 


Type: ( 


whateveryourending number 


Project—use 5 We’re going to write 5 records y) 


f 




Your first number appears on the screen. If it has already been written you will see a message. In any case, 
you can escape if you choose. 


If you choose to continue, you’ll see a prompt followed by the number of spaces allowed for user input (field 
length). GEN REL will truncate if you type more than the allowed number. There is no problem if you type few- 
fewer. If you simply hit return you’ll get either a dash or left overs from preceding records. If you don’t want to 
enter contents, it’s best to use some symbol other than (:) or (,). 


Type: (Your data) 


C^ \~T' / 

> PROJECT - make it up as you go along. J 

W V> ~vjr 

(Continuea) 
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7253 — 7256 


7253 


7254 


7255 


7256 


(Cont’d) 

As you continue to enter data (no escape option until the record is completely written) some of the prompts 
will give a format. You are not restricted to that format. 

When the record is completely written, you will be given the escape option. 

When the sequence is complete or GEN REL finds a non-existent(not marked by jobs 1 or 2) you’ll be return¬ 
ed to the menu. 

Project: Play with READ options jobs 5 and 6. 

Run 20000 for secondary program as in earlier sections. 

Notice the *’s for the unwritten records. 

Examine the directory if your wedge is active or you don’t mind reloading. 


WRITE INDIVIDUAL RECORD 

Type: 4 ◄- Job # 

GEN REL wants number of the record you wish to write. 

Type: ( ) whatever.. > Project: see below) < 

Your record is presented for writing is in the previous job # 3 (7253) 

GEN REL will wait for you to check your data and return you to the menu. If you notice an error, especially a 
small one the next job may be EDIT. With that job you’ll be able to fix it easily. 


to write record # 6 
to continue 


Project: 

Type: f, M. 

Type: ij m 

Type: ( data) 

when you land back at the menu select this job again. 

Type: 4 < - Job # 

Type: 3 ^- Record# 

Notice the message that the record is written. You can either rewrite it or go back to the menu. 
When you land back at the menu, select this job again. 


Type: 4 
Type: 13 


Job # 

• Record # 


Notice you got back to the menu. # 13 was not marked by jobs 1 or 2. If you have an overpowering desire to 
write #13 you must do Job #2. 


R|’£R D I N 3EQUENCb (see first run 7247) 

RE'.RIi EX I ST ING RECORD ( see first run 7245 > 
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7257 — 7260 


7257 


EDIT EXISTING RECORD 


Type: <— 

Type: ( ) «— 

GEN REL will show 

0 will return you to the menu. This i$ the way out. 

10 /vill present all fields for rewriting, show you the new contents. 

1 to 9 allow you to change individual fields. After each field change you may select another field, (1 - 9), or 0 
to return to “the” menu. 


Job# 
Record # 


^Project^U se ^jn^j^r^y^ 
you the contents of your record and present you with the edit menu. 


7258 CHANGE FILE 


Type: fc! 

GEN REL is back at File Name 


At this point you can change disks if you like. Remember, when you enter a file name that is not on the disk in 
the drive, a directory entry for that file name will be created. You can always scratch it later (4500). 



Type: 


Projects: Run secondary program and examine your file. 

- Run main program again and test expand or create file. You’ll destroy data but so what! 

- Expand past the end of your file. i.e. If you’ve created records 1 through 8, expand using 12 as your 
last record and add a couple more. Run secondary program to see what your file looks like. 

if ’s are explained in (7321). 


Rem: The file in GEN REL as structured is probably of little use to you personally. The next few sections will 
explain how to adapt the program to suit yourself. 


7260 RECORD STRUCTURE 


Rem: Much of the information in this section is of little or no concern to the casual user. If your goal is simply 
to adapt “GEN REL” to your own needs, you do not need total mastery here. 

Rem: If your goal is to write your own relative file programs, it would be wise to put some time into this section. 
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7261 — 7262 


FIELD # 

DATA CATEGORY 

FIELD LENGTH 

INPUT 1 ACTUAL 

RECORD LENGTH 

STARTING 

POSITION 

1 

LAST NAME 

16 

1 17 

17 

1 

2 

FIRST NAME 

12 

| 13 

_-30 -v 

18 

3 

SOCIAL SEC# 

11 

| 12-- 

~~ 42 £ 

31 

4 

CLASS (9- 12) 

2 

1 3 

45-__ 

43 

5 

SEX (M/F) 

1 

f 2 

47 

---46 

6 

AVE (X, XX) 

4 

5 

52 

48 

7 

D.O.B. (XX-XX-XX) 

8 

9 

61 

53 

8 

PHONE#(XXX-XXXX) 

8 

9 

70 

62 

9 

COMMENT 

9 

i io 

i J 

—► 80 

i 

71 


(a) 

(b) 

(C) 

(d) 

(e) 


(a) and (b) are determined by the programmer or user adapter based on the purpose of the file. Details and 
record planning tables are in the next section (7270) 

(c) - (e) are computed by “GEN REL” 

(c) One byte must be allowed for “separations” (5400) for each data entry. 

ACTUAL = INPUT + 1 

(d) The last entry is the record length for this file. 

RECORD LENGTH = PREVIOUS RECORD LENGTH + ACTUAL FIELD LENGTH (this entry) 

(e) These numbers will be used to “position” pointer 

STARTING POSITION = PREVIOUS RECORD LENGTH + 1 


7262 General Structure 2 


POSITION ' 
CONTENTS 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 


POSITION 

CONTENTS 


21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 


POSITION 

CONTENTS 


41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 


POSITION 

CONTENTS 


61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 



” denotes end of field in this figure only, (not on disk). 



2 - These Tables give a computer’s eye view similar to that given by the secondary program (7249). 
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7263 — 7264 


7 263 Sample containing data. 2 


POSITION 

1 

2 3 

4 

5 6 7 

8 9 10 11 12 13 14 15 16 17 18 

19 

20 

CONTENTS 

s 

M 1 

T 

H +- — 

- - — — — — — — — — J 

O 

H 


POSITION 1 23456789 30 1 23456789 40 

CONTENTS N — — — — — — — — 1 2 3—4 5 — 6 78 


POSITION 

12 3 4 

5 6 

7 8 

9 50 1 2 3 4 5 

6 

7 8 

CO 

O) 

o 

CONTENTS 

9 +- 1 0 

*r M 

*- 3 

. 0 0 ♦- 1 - 1 

1 

- 6 

8 *- | 


POSITION 

12 3 4 

5 6 7 8 9 70 1 2 

3 

4 5 6 7 8 9 80 

CONTENTS 

— 5 5 5 

' 5 5 5 5 +- N O 

N 

E <-- 


DATA ENTERED 

1. SMITH 

2. JOHN 

3. 123-45-6789 

4. 10 

5. M 

6. 3.00 

7. 1-11-68 

8. 555-5555 

9. NONE 


t- ” shows location of separator. Unused bytes contain nulls. 


7264 SPANNING. 2 3 (record length = 80 bytes) 


RECORD # 

12 3 4 

4 5 6 7 

7 8 9 10 

10 11 

bytes 

80 80 80 14 

66 80 80 28 

52 80 80 42 

38 80 --- 

data bytes 

254 

254 

254 

254 

DATA SECTOR 

1 

2 

3 

4 


2 - These tables give a computer’s eye view similar to that given by the Secondary Program (7249). 

3 - Spanning is not a programmers problem. DOS takes care of the details. 
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7270 — 7273 


7270 USER ADAPTIONS 


7271 


General Flow 

1 st: Decide on the purpose of your file. 

2nd: Determine Records Contents - Data Categories (7274) 

3rd: Set Field Lengths (7274) 

4th: LOAD “GEN REL” 

5th: List 900-999. 

6th: Alter data lines 
7th: Remove the REM from program line 115 if you need more than 10 fields. 
8th: Run “GEN REL” 

9th: SAVE if FILE FORMAT acceptable, new program under a new name. 
10th: Create your file. 

11 th: Use your new file with your new program 




7272 Your file can contain anything you want it to (within limits). Here are but a few samples: 


MAILING LIST 

CHECK REGISTER 

ARTICLES 

1. Last Name 

1. Date 

1. 

Title 

2. First Name 

2. To: 

2. 

Magazine 

3. Street Address 

3. For: 

3. 

Issue 

4. City 

4. Amount: 

4. 

Category 

5. State 

5. Deductable (Y/N) 

5. 

Level 

6. Zip Code 

7. Comment 

6. 

Author 


GRADE BOOK 

1. Last Name 

2. First Name 


) 


3. Test 1 

r' The possibilities are limited 

r\ 


4. Test 2 

w only by your imagination! 

j 


etc., etc.,... 

52. Test 50 





7273 


Setting Field lengths will require a little thought. Keep in mind: Total Record length is limited to 254 bytes 
and that you must leave room for separations. 


ex. CHECK REGISTER 

1. Date:. 

2. To: (a name of sorts) 

3. For: (memo) 

4. Amount:. 

5. Deductable: (Y/N) 



If you need a lot of records in the file, record length should be kept to a minimum. The date entry could be cut 
by deleting the year and including that in the file name. 


(Continued) 
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7273 


7273 (Cont’d) 


Record Length 

Max record # 3 

50 

3342 

100 

1671 

200 

835 

254 

658 


167,132 data bytes 


ex. GRADE BOOK 2 


1 LAST NAME 

16 + 1 

= 17 

2 FIRST NAME 

12 + 1 

= 13 

3 GRADE 1 i 

3 + 1 % 

= 4 

4 GRADE 2 



”, 150 < 


) 50 

1 

51 GRADE 49 

, 3 + 1 | 

l - 4 


52 GRADE 50 


178 + 52 


© 


record length 


As your skill increases work on eff iciency. Long files can take a long time to read and to write. Saving 5 bytes 
per record saves 500 bytes, (2+ blocks), in a file of 100 records! 


You may want to make I 
some copies of the 
following table... I 



2 - If you want to do something like this you will want to alter format in READ sequencies(7333) and file format presenta¬ 

tion (7312). 

3 - relative file data bytes available divided by record length. 
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7275 — 7277 


7275 If your record is planned (7420), your wedge active (1230) and “GEN REL” in computer memory (7241), 
Type: L. I T 3 U W 3 3 3 

7276 Alter DATA statements 

NOTE: The first data entry must be the total number of fields in your record, i.e. Use the field number of your 
last data category. 

3 1 0 DRTR9 ♦— Number of Fields 

All the other data statements contain a user prompt (string) followed by the length of that field (number). 



91 i 

lii-i 

RLRST HRME, 16-*- 

3 1 irj! 

JJH 

!"RFIRST HRME., 12 

3 13 

:or 

fflSOC SEC #,11 

914 

DRTRCLRSS<9-12 >,2 

915 

DiT 

HRS EH (M/F >, 1 

916 

DFl' 

mfi'v'EOC, MH >, 4 

917 

DR" 

'flD.O.B.< HH.HH.KH 

9 18 

DR' 

rRPHOHE#':: HHH.HHHH 

919 

IJM 

HR COM ME NT, 9 **- 





User prompts will appear on the screen. 
You can do just about anything you want 
with these. Keepthem under 20 charac¬ 
ters or you’ll want to change format in 
READ RECORD sequences in the pro¬ 
gram (see program line4060) and possibly 
the FILE FORMAT presentation (see pro¬ 
gram line 230). 


Field lengths must be positive integers and 
must follow their prompts. 


PROMPT 


Note: If you do not write overall of these data lines, it would be good practice to delete the onces that do not 
apply to your program. 


Note: You may, of course, “crunch” your data statements. I simply found it easier to deal with them line-by¬ 
line. If you choose to “crunch” be sure to include the number of fields FIRST. 


Format for “crunched” data lines: 


.. .DATA number of fields, prompt, length, prompt, length ,... 
.. .DATA prompt, length ,..., prompt, length 


7277 To Check Format. 

Type: RIJN 

Your format should appear on the screen. If your record length exceeds 254 the run is aborted automatically. 
If your new format pleases you, you’re ready to go to work. If not, chose the “escape” option and fiddle. 

NOTE: DO NOT attempt to use files created with “GEN REL” with this new program. 
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7278 — 7280 


7278 Choose a new name for your new programs and SAVE it. You can put it on “Friendly Floppy” if there’s room. 

SRVE " NEW MR ME n . S' normal save - no wedge 
+-HEW NHl'IE with wedge 

7279 You should now be ready to create your own files with your own record structure. Good Luck 

7280 UNWANTED RELATIVE FILES 

The only way to dispose of unwanted relative files is to use the SCRATCH COMMAND. (4500) 
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7300 — 7301 


7300 “GEN REL” - Detailed Explanation 


Rem: Although not necessary, it would be helpful to have your system up and GEN REL loaded as you can list 
portions and work with them as you go. If you have not completed the previous section, First Run (7240) at 
the very least, it would be wise to do so. 

References to text lines are enclosed in parentheses, ( ). References to program line numbers are not. 


Before getting into the program 
itself a few, hoepfully handy 
references are included. 


7301 Variable List. 


MAIN PROGRAM 

D = number of fields in each record (data statement) 

DC*<) = data catagories for prompts (data statement) 

L(> - field lengths (data statements) 

PO = starting positions of fields (calculated) 

L = record length (calculated) 

I = counter for FOR-NEXT loops 

FF$ = file name (user input) 

K* = string for "wait" sequences (user input) 

M ■ job number from menu (user input) 

RN = record number (user input or counters) 

N ■ number of records protected when file created (user input) 

N = field number to edit (user input) 

P = position in record (calculated) 

D*<) = user data (user input or input from file) 

S = last record for expansion sequence (user input) 

A = number of records to add in expansion sequence (user input) 
C* = for record check sequences (input from file) 

HI = high byte of record number (calculated) 

LO = lo byte of record number (calculated) 

EN = error number (input from command channel 

EM* = error message (input from command channel 

ET = error track (input from command channel 

ES = error sector (input from command channel 

SECONDARY PROGRAM 

L = number of characters to GET# (user input) 

G* = character (input from file) 
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7310 — 7311 


7310 


7311 


INITIAL SET UP 


SET FILE FORMAT 


1 0@ 

REM m# 

GEN 

110 

RE Fill'll 


115 

REM DIM 

DC* 

120 

FOR I -1T Ci 

D 

125 

RERDDC*( 

I >, 

130 

P(I>~L.a 

•-1) 

135 

L=P(I)+L 

< I > 

140 

ii$a>'="- 

)l 

145 

NEXT 



REL W# 


L < I 


• 1 > + l 



110 Reads 910 

D = 9 since there are to be 9 data fields. 

If the user chooses to alter the number of 
fields (7270), 910 must be changed accordingly. 


913 IiRTRSOC SEC #,11 
314 DRTRCLFISS < 9~12 >, 2 

915 DFiTRSEX (IVF > , 1 

9 1 6 D Fi T fi fl V E (X,, X X), 4 

917 IiRTflU. 0. E. < XX-XX-XX) , 8 

918 IiRTflPHONE#< XXX-XXXX >, 8 

919 riFlTFiCGNNENT, 9 


115 The must be removed if there are more than 10 fields. 

120 - 145 125 reads 911 to 919, (Data Category and 
Field Length) 130 and 135 perform the calculations 
shown below. See “record structure” (7260) 
for other details. 

140 fills the user data list with a character 
to prevent the system from tying up if the user 
fails to enter data on the first write sequence. 



VALUES during RUN 

1 

DC$(I) 

L(l) 

P(I)=L(I-1 )+F(l-1)+1 

L 

1 

LAST NAME 

16 

1=0+0+1 

17 

2 

FIRST NAME 

12 

18=16+1 + 1 

30 

3 

SOC. SEC. # 

11 

31 = 12+ 18+ 1 

42 

4 

CLASS(9-1 2) 

2 

43 = 11 +31 + 1 

45 

5 

SEX (M/F) 

1 

46 = 2 + 43+1 

47 

6 

AVE (X.XX) 

4 

48 = 1 + 46+1 

52 

7 

D.O.B. (XX-XX-XX) 

8 

53 = 4 + 48 + 1 

61 

8 

PHONE # (XXX-XXXX) 

8 

62 = 8 + 53+1 

70 

9 

COMMENT 

9 

71 = 8 + 62 + 

(So) 
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7312 — 7313 


7312 FILE FORMAT PRESENTATION 


200 PR I NT "TILE FORMAT" 

210 PR I NT" MCODE" TAB < 20)" LENGTH POSITIONJP" 

220 FORI-1TOD 

230 PRINTDC$<I>TAB <20> L(I>TAB(30)P CI) 

240 NEXT 

250 PR I NT "RECORD LENGTH", L"WM" 

255 IFL.>254THENPPINT" JSTT 00 LONG" : END 

260 PRINT"WTVPE - C TO CONTINUE / ESCAPE PROGRAM" 

265 GETK$:IFK$~""THEN265 

270 IFK$~" -I-" THENEND 

280 I FK$0" C" THEN2S5 


200 - 250 Simply print results of the preceeding lines to the screen. 

255 Aborts the program if user adaptations exceed the maximum allowed record length for relative files. This 
line is not active with the data lines used in GEN REL and is intended only to protect the user adaptor (7270) 

260 * 280 Escape option for user 

NOTE: All of these lines, 200 - 280, are strictly basic BASIC. Only the “254” in line 255 requires knowledge 
of relative files. If you are having trouble, you need to consult a reference on BASIC. 


7313 OPEN FILES 


300 OPEN15,8,15 opens the command channel. 


15 channel number of command channel 
8 device number - unaltered drive 


file number (chosen to match command channel number) All PRINT # 15 statements that follow 
are commands to the DOS. All INPUT # 15 statements will receive information from the DOS. 


310 INPUT"FILE NAME";FF$ 


simply asks for user to give name of file to work with. 


This file name remains constant unless the user elects to CHANGE FILE (Job # 8). When # 8 is selected the 
system is sent to this line of the program. 


:20 OPE 


L,"+CHR$< L > 



\ 


Record Length as computed in 135 
Numeric variable or specific value 

'Relative file TYPE indicator (Always L. (7141).) 

File name string from 310 

(data) channel number chosen. 

device number for unaltered drive 


file number - chosen to match data channel number. In this program, all PRINT # 3 statment write in¬ 
formation to the file. All INPUT # 3 and GET # 3 receive information from the file. 
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7313 — 7314 


7313 OPEN FILES (Cont’d) 



Refer to (7141) for function. 

32 1 G0SUE 3333 “Error Channel Read” 


Note: Subroutines are described in detail in (7338). At this point in the program nothing too awful can happen. 
If active at all, it’s usually “No disk in drive.” “File not found” will not occur since if the file does not exist, it will 
have its directory entry created in 320. “File type mismatch” will occur if the user inputs the name of existing 
sequential file or the name of a program. 


323 PRINT"MANY KEV TO CONTIHUE" 
327 GETK$ : I FK*= 11 " THENS27 
33@ PR I NT "T 


Simply waits for the user and 
clears screen for menu. 


7314 The Menu 


340 

PRINTTRE' 

18 > " SKDSMENUH" : PR I NT " FILE 

341 

PRINT" 

1 

-• CREATE 

NEW FILE 

• 4 cl 

PRINT" 

cl 

- EXPAND 

FILE 

343 

PRINT" 

3 

. WRITE 

IN SEQUENCE 

3 4 4 

PRINT" 

4 

•■••• WRITE 

INDIVIDUAL RECDR 

345 

PRINT" 

5 

••••• READ II 

-1 SEQUENCE 

346 

PRINT" 

6 

- READ El 

<1STING RECORD 

347 

PRINT" 

r' 

-• EDIT e: 

LISTING RECORD 

348 

PRINT" 

o 

- CHANGE 

FILE 

348 

PRINT" 

3 

END RUI' 

•i 


Note: Job # 1 is described in (7321) program lines 1100-1199 
Job # 2 is described in (7322) program lines 1200 - 1299 
Job # 3 is described in (7323) program lines 1300 - 1399 
Job # 4 is described in (7324) program lines 1400 - 1499 
Job # 5 is described in (7325) program lines 1500 - 1599 
Job # 6 is described in (73‘26) program lines 1600 - 1699 
Job # 7 is described in (7327) program lines 1700 - 1799 


All phases of the program end up here, line 340, except unscheduled errors. 
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7315 — 7321 


7315 Job Selection 


350 I F M > 0 T H E H P RIHT " ML fl S T JOE: "N m = job number 

355 PRINT "FILE'- "FF$" .. REC #"RN"M" 

360 INPUT"JOB #";M 
370 IFIK1 ORM>3THEN360 

350 reminds user of last job 

355 reminds user of file name and last record accessed 
360 simply asks for the next task 
370 is for user protection 


7316 Funnels 


30 IFN-STHEHCLi 


will ask for file name, open it and land at the menu. 

i 

G0T0310 


CHANGE FILE 


necessary since another f ile will be opened under another name using 
the same file number and data channel. 


390 I F\'V~~S f HENUlJjyl:.:.-J : CLU 31::. 1 r j ; LMIJ except for unscheduled errors, the program ends 

here. 


END RUN 


data channel 
file number 


(5320) for details on CLOSE 


command channel file number 


400 ON MOOT 01100 . 1,700 , 1 300 . 1400 . 1 . 500,1 £ 00,1700 

t I_I_I_L_l_I_L_ 


see note (7314) 


Job Number 


7320 JOBS 


Rem: You may wish to review job descriptions in (7220). (7221) corresponds to (7321) etc. 


7321 1 100 REN M 1 : CRERTE NEW FILE %% 

1.110 PR I NT " 3MMSCREflTEl : " FF$ 

1120 PR: I NT" ilHMI ILL DESTROY DRTFl IF USEE ON OLD FI LEW 

t 1 31 00;:::;! IB0500 

X 

“wait” allow user to escape. (7337) 
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7321 


7321 (Confd) 

1130 PRINT h MDIRECTORY ENTRV CREATED" 


The lines above are for user information and protection. 

Notice: The directory entry of a new file was created in 320. If the file already existed, the communication link 
was opened and no harm to file contents occurred. 


1135 PRINT"WANTICIPATED NUMBER OF RECORDS" : INPUTN 


J 


N records will be marked 


1 1 4@ G0SUB9500 “Wait” (7337) ◄— user’s last chance to escape. 


1 1 60 P ::r ' : 1 will be used in “position pointer” routine. Pointer will be set to 1st position of each record. 1185 actually 
places the mark. 


165 

FOR1 = 1 TON 

from 1135 

170 

RN--1 

RN = record number 

175 

uuyUByyyy 

“Record Algorithm”(7335) List 8888 - 8899 

1180 

UUi'UB i' r C (' 

“Position Pointer” (7334) List 7777 - 7799 

1.85 

PR I HT#3 .■ 

places marks in data file 

1 y t> 

G0SUB9933 

“error channel read” (7338) 

190 

NEXT 

List 9999- 10040 



1199 GOT0340 


The Menu 


Note: This procedure is not an absolute requirement for relative files. The marks, #’s, will be used for user pro¬ 
tection in subroutine 9800. (7336) 

In general, it would suffice to position the pointer to record # N. Intermediate records would be marked by 
the system with binaryj 1’sin the first position. 11111 1112 = 255io and corresponds to CHR$(255) = “ Tf 
That’s why you sometimes see' Tf’s when you run the secondary program. DOS seems to mark an entire 
sector once the relative file enters that sector. 
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7322 


7322 1 200 REM ## EXP FI HD FILE 


Rem: This “job” does essentially the same thing as the preceeding. The program structure of 1200 -1299 
parallels that of 1100 -1199 with a few exceptions. Some general techniques and principles are described 
so don’t overlook this section. 


1210 PR I NT !l ^WWgEXPflNDB : " FF$ 

1220 PR I NT" LffcWW I DESTROY D FIT FI IF USED ON OLD FI LEW 


A line 1221 GOSUB 9500 should probably be added here to save the user from anxiety attacks. 2 

.1230 PRINT ,, MCURRENT LAST RECORD # ,! : INPUTS 
1235 PRIHT^WUNEER OF RECORDS TO ADD" : INPUTA 


S unfortunatley depends strictly on user input. This is one of the few dangerous spots in the program since 
it can cause destruction of data. Once the is placed in the 1 st position of the record, previous contents 
from position 2 to the end of the record are gone. Individual field writing can be dangerous. 

e.g. Say we have 9 fields. Writing field # 8 destroys contents of # 9, but leaves 1 through 7 in tact. Writing field 
# 4 desroys # 5 through # 9 but leaves # 1 through 3 in tact. 

Notice: These are field numbers not record numbers It is perfectly safe to write record # 13. All other records 
are left untouched if they already exist. 


1240 
1260 
I i.':!. Lj •. j 

1270 
1275 
1280 

1 2 y ti 
1290 


G 0 s I.J B9500 -- “WAIT’ LIST 9500 - 9599 

p~: [ - for “position pointer' 1 like 1160 

FOR I =S+ 1 T08+Pi - ©•£)■ if S = 15 and A = 7,1 = 16 to 22 3 

RM = I - RN = record number 

GQSUB8888 -*- “POSITION POINTER” LIST 8888 - 8899 

G0SUE7777' M - “record # algorithm” list mi - 7799 

F’RINT'ttG.. - places mark in data file 

G08UB9999 - “error channel read” list 9999 -10040 

NEXT 

G0T0340 - MENU 


J S' 

7323 - 7326 Rem: Notice Parallel Structure 




2 - Frankly I’d stop and put that in but if I keep fussing with this program, this book will never get finished. 

3 - If you find this as awkward as I do, you may wish to change in a manner similar to that in 1300 and 1500. 


174 










7323 — 7326 


7323 


7324 


1300 REN m WRITE IN SEQUENCE m 

1305 PR I NT" □KISIWR ITEH IN SEQUENCE STARTING WITH" 

1310 I INPUT" MR EC ORB #" ;S 

1315 INPUT"WWRITE TO #%R 

1320 FORJ=STOfl 

1330 RN=J 


1340 GOSUE2000 
1 350 GOSUB9500 
1:360 NEXTJ 
1339 GOTQ340 


“WRITE RECORD” 
“WAIT’ 9500 - 9599 


MENU 



1435 GETKT : I FK$="" THEN 1 ’435 
1433 G 0 T034Q -menu 


7325 


7326 


15013 
1585 
1510 
1515 


REN m READ IN SEQUENCE ** 

PR I N'T 11 riiiilSRE- him IN SEQUENCE START ING WITH ! 
INPUT" jiilRECORI) #"S 
I INPUT" SIR EIRE TO A 


1520 FORJ=STOF 
15:30 RN--..J 



1635 GETK$:IFK$=""THEN1635 
1693 GOT0340 


MENU 
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7327 


7327 1 7 0 0 REM m EDIT RECORD m 


1710 INPUT"RECORD #"JRN 

1 i'' 1 5 UUCUB4000 •* - To show current record contents, if none, user returned to menu. 

t 

“READ RECORD” LIST 4000 - 4999 (7333) 


1729 PR I NT" MTV PE : 0 NO CHANGE 

1721 PRINT" 10 . CHANGE ALL 

1722 PRINT" 1 TO 3 - FIELD CHANGE 
1725 INPUTN=IFN<0ORN>10THEN1725 


“Edit” menu and job selection. 
Choices 1 - 9 send us to 1740 


1730 IFN=0THEN340 


MENU 


£ Where else?? J 


1735 I FN = 10THENGOSUE2030 : GO TO 17 ;[ 5 


Jumps to WRITE RECORD 

LIST 2000-2999 

Simply writes a new record. (7332) 


Allows user to check newly entered data. 


740 PR I NTDC#(N> 
745 I NPUTIJ$<:; H) 


Data category as read in 125 

User data. Note this affects only data in computer memory list not 
data on disk. D$(N) was read in 4000 - 4999 



D$LN;-=LEFTf ciDf 


N 


.< L K N j protects from overwriting field like 2055 (7332) 


t 

field length as read in 125 


1755 PR I NT " ANOTHER FI ELD? C 0.S' > " 

1760 IFH=0THEN1775 
1765 IFN<10RN>5THEN1755 


: 'UTN 


allows user to change another field 


The following, 1775-1795, re-write the entire record, reflecting the changes in the list, D$(l).(See note un¬ 
der 1235 in (7322).) 


1730 F~P<I> 

1785 G0SUE7777 
1730 F'R I NT#.Si .■ Dl : (I > 
1.731 GO SUES'3 3 3 
1735 NEXT 


as read in 110 from 910 
as computed in 130 for “POSITION POINTER” 
“POSITION POINTER” LIST 7777 - 7799 2 
places data in file. 3 is the fn of the data file 

“ERROR CHANNEL READ” LIST 9999 - 10040. 
Should find an “OK” unless something weird has 
happened. 


■‘ : i9 ijOTO 1 r 1 5 allows user to check newly entered data 


2 - “RECORD # ALGORITHM” LIST 888 - 8899 has already been done in 4010 from 1715. (7335) 
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7330 — 7331 


7330 


3 3 R EM SU£E0UTIHE.3 #$#¥ 


Rem: This Tracer is presented to help you figure out where you’ve been and/or are going. If you feel like you 
are going around in circles, relax. As you can see, the seven little subroutines are nested, as often as four deep. 
Be patient. 


7331 SUB TRACER 


INITIAL SET UP 
321—*-9999 



READ IN SEQUENCE 

1 540 —*- 4000 

-*-8888 


-*- 9100i-*- 7777-*- 9999 

1-*- 9999 


-*- 7777-► 9999 


-*-9999 

1550-*-9500 



READ EXISTING RECORD 
1 620-*- 4000-*- (as above) 


EXPAND FILE 


1221 -*-9500 

1240-► 9500 

1275-► 8888 

1280-► 7777 

1286-*-9999 


9999 


EDIT EXISTING RECORD 


1715-*- 

1735-► 


1785-*- 

1791-*- 


4000 

2030 


7777 

9999 


E 


(as above) 
9500 

7777 -*» 

9999 

9999 


9999 


WRITE IN SEQUENCE 


1340- 


2000 



8888 

C 


9999 


9100 

9500 

7777 


7777 

9999 

9999 


-*-9999 


WRITE INDIVIDUAL RECORD 
1420 - 9500 


(Continued) 


177 







7331 — 7332 


7331 (Cont’d) 



This sequence performs actual record writing with the aid of other subroutines. It is encountered from Job 
#’s 3, 4 and 7. 


2S305 P R I M i ' ! EKRE.C-0 R. D it !5 F!N Record # from user input Jobs 4 & 7 or computed in 

Job # 3. 


20 1 0 G0SUB38S8 “RECORD # ALGORITHM” LIST 8888 - 8899 (7335) 

20 1 1 GO SUBS 1 1 00 ** -“RECORD CHECK” LIST 91 00 - 91 99 (7336) 

20 2 s3 I F c '$ ::::: ' ! W ’ ! T HEN202 9 - as marked by job # I or job # 2 

2025 PR I MTRM !i HFiS BEEN WE ITTEH 11 — Warning if record contains user data 

2022 UUFUBy 000 ◄-“WAIT’ LIST 9500 - 9599. Allows user to over-write if desired 

2020 F Uh! 11 i UIJ as read in 110 from 910 


used in “POSITION POINTER” as computed in 130 at each pass 2060 will position 
the pointer to the beginning of the field to be written. 


2040 PR I NTDC$ < I > !! [ n L < I > n SPRCES ] !! 

t i 

field length as read in 125 from 911 - 919 
data category heading 


2000 i Hi-'U i .U#1 - ! user data list. If user hits return and thus fails to enter data, D$(l) keeps its current 

value. 140 puts -’s into these positions. The return key functions as usual and is not 
recognized as input. Colons (:) and commas (,) foul up read operations(7224) & (5400) 
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7332 — 7333 


7332 (Cont’d) 


2055 D $ ( I ) ;: - : LEF T$ (Ii$ ( I ) .* L( I ) ) Tuncates if string input was longer than the allowed 

length. A real mess results when fields are over¬ 
written. i.e., If data separators are destroyed, read 
operations will not work properly. 


‘PP\f,p\ rjflSi |'p7777 “POSITION POINTER” LIST 7777 - 7799 (7334) uses values from 2005,8888, 2035 
to position to the beginning of the field I in the record # specified, RN. 


2U70 PR I NT #3 .■ ii$ I Putsthedata into the bufferfortransfertodiskwhen buffer is filled 

orfile closed (5320). A data separator is placed automatically. (5400). 


7333 


2071 G0SUB9999 “error channel read” list 9999 --10040 

2080 NEXT 

2 099 RETUR N to 1340 or 1420 or 1 735 

4 0 0 0 R E M :'i': it: R E'. fl IJ R E C 0R ] "I if: # 


This sequence performs the actual record reading with the aid of other subroutines. It is encountered in Jobs 
#’s 5, 6 and 7 


4@1@ G0SUB8888 


“RECORD # ALGORITH M” LIST8888 - 889?. (7335) Use RN from 1530,1610 or 1710. 


40 1 1 G0SUB9 1 00 “RECORD CHECK” LIST 9100-9199 (7336) 


4020 I FC$ = " il'i" THEHF'R I NT " :m\" RN 1 


i'J RIT T IE !'■]'' : '3 O 7 0:340 menu 


When the program encountrs an unwritten record, this line prevents a“STRI NG TOO LONG” BASIC 
error message and an aborted run. Were that to occur and if the user failed to close files manually, 
data could be lost. 


4025 PR I NT " 7M" FFftTRB '■ 20 > !l # !i Ri-i " W" user information 


4050 FURI ::::: 1 I U.U these lines are similar to 2030-2099 If you are considering changing 

4035 p-:| :: ' ( T t0 more than 20 fields, (7270) you’ll probably want to alter record 

. I ’ 22. presentation format. This is the best place for that. 

4040 UUoUB r r' r 7 

4050 I HPUT#3 .• fJ'T '■ I - receives a string from the file 

4051 G0SUB9933 

4060 PR I NT I !! DC$ (I > TAB '• 22 I > 

4070 NEXT 

4099 RETURN -to 1 540 or 1620 or 1715 
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7334 — 7335 


7334 



This routine is encountered prior to all PRINT # 3, INPUT # 3, and GET # 3 commands. (7143) contains gen¬ 
eral format. 


7788 PR I NT# i 5 .« " P " CHR$ (3 > CHR$ C LG > CHR$ ( HI > CHR$ C P) 


starting position; 
a number from main 


from subroutine program or subroutine 

8888(7335) 


data CHANNEL number from 320 


command string for “position” 
command channel FILE number from 300 


Note: Again I apologize for the two P’s. Be sure to note the differences. 

-*T. 






G0SUB9939 “error channel read” list 9999 -10040 (7338) 


77 33 R IE T U R hi to 1180 or 1280 or 1785 or 2060 or 4040 or 9120 


7335 9888 REM M RECORD # ALGORITHM ## 


8878 HI = I HI" <RN,-‘’2!: 
8891 L0=RN.HI#25C 


18 ) HIGH & LOW BYTES of RN (record number) 
for use in SUBROUTINE 7777 




to 1175 or 1275 or 2010 or 4010 


A single byte can handle at most 256 (0 to 255) numbers. Since a capacity of more than 256 records is desir¬ 
ed TWO bytes (lo and hi) are used in the position command to “get at” the specified record number. TWO 
bytes can handle 256*256 = 65,636 different numbers. 2 Here’s how it works if you don’t already know. 


Let RN = record number 
LO = contents of 1 st byte 
HI = contents of 2nd byte 


The formula: RN = 256*HI + LO 


2 - If that is not enough records, it’s time to consider a different system. 
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7335 


7335 



a) If RN =1000, then LO = _and HI = 


b) If HI = 2 and LO = 3 then RN = 


Rem: Here we’ll trace some values through the algorithm 8890 - 8891. 


f\ C;y@ |~| J J \\\J ( RH/256 •' “INT’ is the BASIC function that “chops” the remainder. 


Suppose RN = 700 

HI = INT (700/256) 

HI = INT (2.734375) 

chopped 

HI = 2 — result of 8890 


- a) LO = 232 & HI = 3; b) RN = 256*24-3=51 2+3=515 
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7336 — 7338 


7336 


(Cont’d) 


9199 RETURN 


to 2011 which gives warning but allows writing 

4011 which will return to menu if record no written (* was found) 
or allow existing record to be read. 


7337 


9500 REM m WRIT 


This routine is encountered whenever the user needs an escape option. If you use the program you may add 
these as needed or delete the anoying ones. You could also delete 9540 to allow “any key” to continue (that 
could be dangerous). 


9510 PR I NT" MT VPE ~ C TO CONTINUE 7 +- ESCAPE TO MENU" 

9520 GETK$=IFK$=""THEN9520 

9530 I FK$~=" THENPRI NT " U" : OOTO340 

9540 IFK$<>"C"THEN9520 

9539 RETURN to 1121 or 1140 or 1221 2 or 1240 or 1350 or 1550 or 2029 


7338 9 3 33 REM ERROR CHRNNEL READ m 


10000 INPUT#15,EN,EM$,ET,ES 



"Error sector # 
Error track # 

Error message string 
Error number 
FILE number of command channel from 300 


This reads the DOS for possible problems. 


1 00 1 0 I FEN<20THENRETURH to321 or 1791 or2071 or4051 or7781 or9131 


The “All Clear” 


1 0020 IFEN-50THENI FM<30RM>7THENRETURM 1186,1286,778i allows create, ex¬ 
pand, CHANGE FILE or END RUN. 


EN = 50, RECORD NOT PRESENT (7150) 


10030 I FEN=50THENPR I N T'EMT, RN : GOTO340 



refuses to allow reading (probably already 
caught in 9100 “RECORD CHECK”) or 
writing non existent record. 


2 - If you choose to add it. 
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7338 — 7341 


7338 (Coni’d) 


10040 PRINTEN;EM$,ET:ES 


Informs user of unscheduled 
error condition (e.g. somehow the disk 
got out of the drive) and protects data, 
especially any in a buffer, from loss. 


CLOSES : CLOSE 15 

I I 

command channel file numbers 
data file number 


7339 199*39 END In this program END occupies a separate line to prevent secondary program from 

running. It would work just as well appended to 10040. 


340 28000 REM #### SECONDARY PROGRAM 


Rem: This program, independent of the main, was originally intended as a “debugging device.” It is included 
in the final version to illustrate a few different techniques and to allow user to examine file contents. Results 
of runs are included in addition to the explanation for those beyond the casual user stage. 


7341 Explanation 


command channel, file number chosen to match. 


0100 PRINT",?]" : OPEN 15,8, 15 
0110 INPUT"FILE NRME";FF$ 


>0120 OPENS, 8, 3, FF$ ■ GDSUB21000 

I_I 


X 


Error Chagnel read routine for this program. 


Note use of short form to “open to use” existing relative file (7142) 


201 30 I NPUT ”RECORD tt";RN : G0SUB8888 
20140 I NPUT “ LENGTH M .• L j 

“RECORD # ALGORITHM” from main program. 

“Length” is somewhat of a misnomer. The number here is the number of characters to be retrieved 
from the file. 


20150 PRINT#15," 

t 

file 

number of 
command 
channel 


CHIP# < 3 > CHR$ < 


t 

data 

channel 

number 


LO > CHR$ (. HI) CURT < 1) ; GOSUB21000 

1 -- 1 t t 

from sub 

8888 | 

starting position 

error read routine 


“Position” command 


20 1 60 FOR I1 TOL beginning of character retrieval loop 
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7341 


7341 (Cont’d) 

2 017 6 G E T tt 3.. G $ '■ 6 0 S U E 210 0 0 



Notice use of GET# command. It will read the one character from the file at each pass through the 
loop. A string variable, G$, was used to allow for reading of all characters. 


h! W 1 i' b 11"' I j '$U H R$ 1 ■:;! ;i i hi t. H U '$ 11 1 ' uses techniques of (6260) to show computer's eye 

20180 I FG$= " " THENG$= " l " view of file 

20185 PRINTG$; 

20190 NEXT 


20200 PR! NTCHRf (13 >" JlttJiHOTHER RECORD? (V/H)" 
20210 GET K$ ■ I FKf” 11 " THEH20210 
20220 IFK$="V"THEH2013@ 

20999 CLOSES : CLOSE 15:END 


Only a “Y” response here will recycle. Any key will end. This secondary program does not protect the user as 
as the main program. 


21080 I HF'UT# 15, EH, EM$, ET, ES 
21010 IFENC20THEHRETURN 

21028 PRIHTEH;EM$,ET; ES : CLOSES:CLOSE15•END 


This error read routine doesn’t even checkfor Error #50 but simply lets the prog'ram abort when the file ends 
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7342 — 7344 


7342 - 7344 Sample Runs 


7342 




Shows typical Test file. 
(See also (7249).) 


blank in file 


+•- carridge return 
CHR$(13) 





records created by ^ 
job # 1 or job # 2 but 
not written. 



EST-Hi; 


•|T 


note: the * shows exist¬ 
ing but unwritten record 
(# 7) 



marked by system, these “records” fill left overs in 
data block but do not “exist” (7321) 


7343 File Evolution 


shows NEW FILE. Thisfile has been opened in 320 but no records 
created by job # 1 or job # 2 


NEW FILE 
RH-- 1 L= 1000 

■tfi |i|t 4" 


shows NEW FILE after the creation of six records by job # 1. 


HEW FILE 
RFf : 1 L= 1000 

3-Hi! s I >; s S s s! 
3 :3 33 4-9 M 4 - 3 0 0 4-3 R RR 


shows NEW FILE after record # 3 was 
written. 


IEW FILE":- 


•; •!*.. •!•••• 




7344 


File Expansion 



•iHijt ■<r"iT-rr 


shows Test File from 
(7342) after job # 2 des¬ 
troyed records # 2 and # 3 
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7400 


7400 “GEN-REL” - Complete Listing 


100 REM *** GEN REL **+ 

110 READD 

115 REM IIIM DC* < D), L. <D), P < D ) , D* C D > 

120 FOR1*1 TOD 
125 READDC*<I>,L<I> 

130 P(I)=L(M)+P(H) + 1 
135 L=P(I)+L(I) 

140 D* CI > =" -- " 

145 NEXT 

200 PR I NT " JF ILE FORMAT 11 

210 PR I NT " MCODE " TAB (20 >" LENGTH F'OS ITIOHM" 

220 FORI — 1FUD 

230 PRINTDC*<I>TAB <20>LCI>TABC30>P<I> 

240 NEXT 

250 PRINT" XMRECGRD LENGTH" , L"MS" 

255 I FL>254THENF'R I NT " MTOO LONG" ; END 

260 PRINT"MTVPE - C TO CONTINUE X «■ ESCAPE PROGRAM" 

265 GETK*•IFK**""THEN265 

270 IFK*="*-"THENEND 

280 IFK*<> 11 C"THEN265 

300 OPEN15,8,15 

310 INPUT" FI LE NAME " FF* 

320 OPENS,8,3,FF*+",L,"+CHR*<L) 

321 GQSUE9999 

325 PRI NT"MANY KEY TO CONTINUE" 

327 GETK*-IFK*=""THEN327 
330 PRINT",!" 

340 PR I NT TAB < 18 >" SMMMENUB" : PR I NT "FILE - " FF* " 

341 PRINT" 1 - CREATE NEW FILE 

342 PRINT" 2 - EXPAND FILE 

343 PRINT" 3 - WRITE IN SEQUENCE 

344 PRINT" 4 - WRITE INDIVIDUAL RECORD 

345 PRINT" 5 ~ READ IN SEQUENCE 

346 PRINT" 6 - READ EXISTING RECORD 

347 PRINT" 7 -- EDIT EXISTING RECORD 

348 PRINT" 8 - CHANGE FILE 

349 PRINT" 9 - END RUN 

350 IFM>0THENPRINT 11 MLAST JOB : "M 
355 F'R I NT" FI LE : "FF*", REC #"RN"M" 

360 INPUT"JOB #";M 

370 IPMC 1ORM>9THEN360 

380 IFM=8THEHCL0SE3:G0T0310 

390 IFM=9THENCL.0SE3 : CLOSE 15 ; END 

480 0NMG0T01100,1200,1300, 1400,1500,1600,1700 

910 DATA9 

911 DATAL.AST NAME, 16 

912 DATAFIRST NAME,12 

913 DATASOC SEC 4,11 

914 DFlTACLASSC9--12>, 2 

915 DAT A SEX M.-'F ; . 1 

916 DATRAVECX.XX>,4 

917 DAT AD.0.B,CXX-XX-XX).8 
913 DATAPHOHE# ‘1XXX-XXXX >, 8 
919 DATACOMMENT,9 


(Continued) 
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7400 


7400 (Continued) 


1100 REN ** CREATE HEW FILE ** 

1110 PRINT"nWWaCREATES:' "FF$ 

1120 PRINT" SWKWILL DESTRQV DATA IF USED ON OLD FI LEW 

1121 GOSUB9500 

1130 PRINT"MDIRECTORY ENTRY CREATED" 

1135 PRINT"ANTICIPATED NUMBER OF RECORDS" : INPUTN 

1140 GOSUB9500 

1160 F'=l 

1165 FOR1=1TON 

1170 RN=I 

1175 G0SUB8888 

1180 G0SUB7777 

1185 PRINT#3, 

1186 GQSUB9999 
1190 NEXT 

1199 GOTO340 

1200 REM ** EXPAND FILE ** 

1210 ,F’R I NT" nWSEXF'ANDB: " FF£- 

1220 PRINT" 3UUU ILL DESTROY DATA IF USED ON OLD FI LEW" 

1230 PR I NT " .(CURRENT LAST RECORD INPUTS 

1235 FRINT"(NUMBER OF RECORDS TO ADD" ; INPUT A 

1240 GOSUB9500 

1260 F'=l 

1265 FOR I =S+ .1TOS+A 
1270 RN=I 
1275 G0SUB8888 
1280 G0SUB7777 

1285 F'RINT#3, 

1286 G0SUB9999 
1290 NEXT 

1299 GOTO340 

1300 REN m WRITE IN SEQUENCE ## 

1305 PRINT"nWSWRITES IN SEQUENCE STARTING WITH" 

1310 INPUT"(RECORD #".:S 
1315 INPUT "WRITE TO #";A 
1320 FORJ=STOA 
1330 RN=J 
1340 GOSUB2000 
1350 GOSUB9500 
1360 NEXT! 

1399 GOT0340 

1400 REN ** WRITE INDIVIDUAL RECORD ** 

1410 INPUT"RECORD #";RN 

1420 GOSUB2000 

1430 PR I NT "MANY KEY FOR MENU" 

1435 GETK$ : IFK$=""THEN1435 

1499 GOT0340 

1500 REN m READ IN SEQUENCE 

1505 PR I NT" IKISREABB IN SEQUENCE STARTING WITH" 

1510 INPUT"AECORH #",S 

1515 INPUT"(READ TO #":R 

1520 FORJ=STOA 

1530 RN=J 

1540 GOSUB4000 

1550 GOSUB9500 

1560 NEXT! 

1599 PRINT" IT =GOTO340 

(Continued) 
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7400 


7400 (Continued) 


1600 REM *# READ INDIVIDUAL RECORD ## 

1610 INPUT"RECORD #" JRN 
1620 GOSUE4000 

1630 PR I NT" SUBANV KEY FOR MENU" 

1635 GETK*:IFK$=""THEN1635 
1693 GOTO340 

1700 REM ** EDIT RECORD *# 

1 7 10 I NF'UT " RECORD #"; RN 
1715 GOSUB4000 

1720 PRINT"WTYPE: 0 - NO CHANGE 

1721 PRINT" 10 - CHANGE ALL- 

1722 PRINT" 1 TO 9 - FIELD CHANGE 
1725 I NF'UTN ■ I FN<0GRN> 10THEN1725 
1730 IFH=0THEN340 

1735 IFH=10THENGOSUB2030:GOTO1715 
1740 PRINTDCt< N> 

1745 I NF'UTDf C N > 

1750 D$<N)=LEFT$<D$<N),L(N)> 

1755 PRINT"ANOTHER FIELD?<0-9)"=INPUTN 

1760 IFN=0THEN1775 

1765 IFN<10RN93THEH1755 

1770 GOTO 1740 

1775 FORI=1TOD 

1780 P=P(I) 

1785 G0SUB7777 

1790 PR I NT#3.. D$ (I > 

1791 G08IJB9999 
1795 NEXT 
1799 GOTO:!.715 

1999 REM mm SUBROUTINES ***+ 

2000 REM +* WRITE RECORD m 
2005 PRINT"nKRECORD #"RN 

2010 G0SUB8888 

2011 G0SUB9100 

2020 IFC$="*"THEN2029 

2025 PRINTRN" HAS BEEN WRITTEN" 

2029 G 0 3 U B9500 

2030 FOR1=1TOD 
2035 P=P(I) 

2040 PR I ITT DC.$ < I ) " C " I... C D" SPACES I" 

2050 INPUTDid) 

2055 D$ '■ I) =LEFT$ ( M- < I), L < I >) 

2060 GOSUB7777 

2070 PR I NT#3 .■ Dl : '• I > 

2071 G0SUB9999 
2080 NEXT 
2099 RETURN 

4000 REM m READ RECORD m 

4010 G0SUB8888 

4011 GOSUB9100 

4020 IFC$="*"T HENTRINT" RN" NOT NRITTEN" : GOTO340 

4025 PRINT" 7M"FF$TAB<20)"#"RN"W" 


(Continued) 
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7400 


7400 (Continued) 


4030 FOR1=1TUB 
4035 F-P(I > 

4040 G0SUB7777 

4050 INPUT#3.. D$( I ) 

4051 G0SUB9999 

4060 PRINTI" "DCf<I>TAB(22>Df(I> 

4070 NEXT 
4099 RETURN 

7777 REM *+ POSITION POINTER M 

7730 PRINT#15,"P"CHRf(3 >CHR$C LO > CHRf(HI)CHRf CP) 

7781 G0SUB9999 
7799 RETURN 

8888 REM M RECORD # ALGORITHM M 

8890 HI — I NT (. RN/256 > 

8891 L0=RN-HI*256 
8899 RETURN 

9100 REM ** CHECK RECORD M 

9110 P=1 

9120 GO SUB 7 7’77 

9130 GET #3 ,Cf 

9131 U U SI ...I B9999 

914*0 I FCf*CHRf < 255 > THENPRI NT" RH" NOT PRESENT " : GOTO340 

9199 RETURN 

9500 REM ** WAIT *** 

9510 PRINT"J!JTVPE - C TO CONTINUE X *-• ESCAPE TO MENU" 

9520 GETKf•IFKf*""THEN9520 
9530 I FKf* " 4-" THENPR I NT " 3" • GOTO340 
9540 IFKf O"C"THEH9520 
9599 RETURN 

9999 REM ** ERROR CHANNEL READ m 

10000 I NF'UT# 15, EN, EMf, ET, ES 
10010 IFEN<20THENRETURN 

10020 IFEN=50THENIFM<30RM>7THENRETURN 
10030 IFEN=50THENPRINTEM$,RN:GOTO340 
10040 PR I NT EH, EM*, ET, ES •’ CLOSES : CLOSE 15 

19999 END 

20000 REM mm SECONDARY PROGRAM mm 
20100 PR INT" : OPEN15,8, 15 

20110 I NF'UT " FILE NAME"; FF$ 

20120 OPENS .i 3.. 3.. F F $■ '■ UUSUB21000 
20130 I NF'UT" RECORD #"RH : G0SUB8888 
20140 INPUT "LENGTH".;!... 

20150 PR I NT# 15, "P" CHR'f < 3 > CHR$ ( LO ) CHRf (HI ) CHRf ( 1) : GO SUB 21000 
20160 FOR I = 1T01... 

20170 GET#3,Gf ; G0SUB21000 
20175 I FGf=CHRf ( 13 > THENGf = " *•" 

20180 IFGf=""THENGf*" i " 

20185 PRIHTGfJ 
20190 NEXT 

20200 PRINT CHRf<13>"WWANOTHER RECORD? < Y/N>" 

20210 GETKf ■ 1 FKf = 11 " THEN20210 
28220 IFKf*”V"THEN20130 
? 0999 c l.. 0 S E 3 : C L 0 S E15 ; E N D 
21000 I NF'UT# 15, EH, EMt, ET, ES 
21010 IFENC20THENRETURN 

21020 PR INTEN,EMf,ET,ES : CL0SE3 : CLOSE 15•END 
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8100 — 8110 


8100 RANDOM Files in General 


Rem: Although RANDOM files can be used for the same purposes as RELATIVE files, they are more awkward 
and require a great deal more bookkeeping. One forte of RANDOM files is utility routines such as those found 
on your TEST/DEMO DISK. 2 


This chapter, I’m sorry to say, doesn’t really get into matters as deeply as the preceeding nor is it as detailed. 


8110 Overview 


Rem: RANDOM file processes allow access to any block (on a formatted disk) given to track and sector num¬ 
bers. A careful examination of (0260) and (0270) may be in order. 



! 

i 


* - ° Commodore Business Machines. 
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8120 — 8123 


8120 Command Format & Function 


8121 OPEN 


format: I OPEN fn,dv 9 ch“#” 


parameters: fn = file number 

dv = device number 
ch - channel number 


“#” is the symbol used to indicates RANDOM file as opposed to a sequential or relative. RANDOM files do 
not have “names” as such. “#” is always the “name” of the random file. 


ex: OPEN 10,8,10,“#” 
OPEN 10,8,84,“#” 


8122 BLOCK-ALLOCATE 


parameter: 0 = drive number (0150) 

t = Track number - numeric variable 
s = Sector number - numeric variable 


format: I PRINT#75,“B-A:”0;f;s 



“B-A:” the command string. The words “BLOCK-ALLOCATE” may be used if desired. 


function: This command, along with a check on the error (command) channel, checks BAM(0270) to see if 
the specified block is available. If so, the program allows the write operatibn. If not DOS sends “65 - NO BLOCK” 
and sets Track and Sector numbers to those of the next one available. In either case, a block is allocated those 
of BAM. 


T rack 10 

1 

e.x. PR I N I # 1 b , pi - H • i-1 \ 0 ; 2 4 — Sector 2 


checks to see if track 10 sector 2 is available. If available, (10,2) is then marked. If not available a reading of 
the error channel will indicate the next available biock by Track and Sector numbers and it is marked as used 


8123 BLOCK-FREE 


format: | PRINT#75/‘B-F:”0;f;s 


parameters: as in (8122) 

“B-F:” is the command string. The words “BLOCK - FREE” may also be used. 

Function: This command causes BAM to mark a block as available. When a block is available it can be 
written on by any write command. In some ways it is similar to the SCRATCH command (4500). The VALI¬ 
DATE command (4400) “frees" ail allocated blocks that have not been written whereas BLOCK-FREE 
“frees” them one at a time. 


Notice that the last few punctuation 
marks are semi-colons. 2 



2 -Some of these commands work with commas in place of the semi coions. Some don’t like commas. Maybe you can ex¬ 
periment and figure out why. 
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8124 — 8128 


8124 BLOCK-READ 


format: | PRINT#75,“B-R:”ch;ojf!s 


parameters: ch = channel number from random file data channel. Thus as in (8122). 

function: This command feeds the contents of the block specified by T & S into the data channel buffer until 
the buffer pointer signals the end of data INPUT # fn/or GET# fn are then used in the usual manner to read 
the data Use of iNPUT# requires the usual cautions with file data format. (5400) 


8125 BLOCK-WRITE 


format: | PRINT#75,“B-W:”c/?;0;f;s ] 


parameters: as in (8124) 

function: After information is placed into the data channel buffer via PRINT#fn, this command does the real 
work. The DOS takes care of character counting and places end of data markers for use in read operation, 
i.e., a buffer pointer notes the position of the last character written. 



parameters: ch = channel number of random fiie data channel. 
p = position within block (0 - 255) 


function: This command issimilartothe“POSITION”command in Relative files. With relative files, we posi¬ 
tioned relative to the beginning of the record. With random files we position from the beginning of a data block. 


8127 CLOSE 


format: | CLOSEfn [ 

parameter: fn = file number of random file data channel. 

function: as described in preceding chapters ad nauseum, but still as important. 


8128 USER1 

format: | PRINT#75 ,“U1 :”c/?;0 ;t;s | 

parameter: ch, 0, t, s as in (8124) 

“U1command string. (“UA:” is an equivalent command.) 

function: This command is similar to BLOCK-READ except that it feeds all 256 bytes into the data channel 
buffer regardless of pointers that signal end of data. 
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8129 — 8222 


8129 USER2 

format: | PRINT#15,“U2:”c/i;0;t;s | 

parameter: (8128) 

“U2:” command string (“UB:” is an equivalent command.) 

function: This command issimilarto BLOCK-WRITE except that it does notalterthe buffer printer that con¬ 
tains the position of the last character written. 


8200 SAMPLE PROGRAM 

8210 PROGRAM OBJECTIVES 

8211 Thisprogram places a user’s string intoaTrackandSectorselected bytheDOSand keeps track of these via 
a sequential file. 


821 2 The primary intent of thisprogram is that of a learning experience ratherthan that of a user oriented program. 

It is also an example of a grade D program. 


8220 USER INSTRUCTIONS 


8221 


Preliminaries 

PROGRAM NAME: “RANDOM FILES” 
(normal load) 



You will be asked for a file name. RND SAMPLE exists on “Friendly Floppy” so use that for your first attempt. 
Otherwise the program will try to read or write the sequential file you name. If your intent is to write your own 
file feel free to use the name of your choice so long as it does not exist on the disk in the drive. (8224) 


8222 


READing 

After you’ve given the program a file name, say RND SAMPLE, the program asks if you wish to read or write. 
Say READ for now. All you’ll need is R. 


Now it wants to know which record to read. If you’re reading RND SAMPLE ask for record #2 and you see some¬ 
thing like this. ^Status 

H T S ST | 

t I [ i : ;;i > from Program line 440 

2 i 2 0 ) < 8330) 

# i kHLK. 1 bLl, I Uk from Program line 500 (8330) 



from Random file, (all else from sequential file) 
program line 530 (8330) 
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8222 — 8223 


8222 READING (Cont’d) 

The Random file contains only the number, and a string, 2 and Thumb in the case of RND SAMPLE. The other 
things you see will be explained later (8300). 

When the program asks for another Type: Y followed by # 7 and you’ll see something like this. 


N T 

i i i 

■4 1 4 



from the Random file, (8330), program line 530 


Fool around with reading other records in this file. Try # 10 for instance to see what happens. 


8 j 

p \ from sequential 

f file named 


8223 The Secondary Program 

Type: N for no more records then 

Type: RUN 9000 to run the secondary program. You’ll see something like this. 




record # 
track # 
sector # 


These are the contents of the companion sequential file. With the 
program as written, RND SAMPLE will always be read. To change to 
your file LIST 9000 and change the name. Better yet use 9000 INPUT 
“FILE”;FF$ 

9005 OPEN 5,8,5,FF$+“,S,R” 
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8224 — 8310 


8224 


WRITING 


Suggestion: Use a disk you don’t care about for experiments. This program can be 
very unfriendly. If it were a nice program it would not allow the user to destroy a file 
without fair warning. i.e., it would check the error channel for # 63 FILE EXISTS and 
allow the user a chance to abort. 


When you run the program, supply a file name that \snot on the disk. This will be the name of a sequential file 
that will contain the record number, the track and sector numbers of that record. 


^l\A/VVt aAv 


CAUTION: THIS PROGRAM WILL WRITE OVER 
AN EXISTING SEQUENTIAL FILE 2 






Next you’ll be asked for a string. You may use anything you want. You’ll hear some buzzing and then see the 
track and sector numbers of the block on which your data was placed. Hit N when you get sick of writing re¬ 
cords. Run again and read them using the proper name for the file of course. If you want to examine the con¬ 
tents of your sequential see the explanation section (8223) 


8300 EXPLANATION 


8310 


Rem: This program is far from being slick and user friendly. It is intended merely as a sample of some of the 
commands used for random files. As usual, program line references are not in “( )” while references to text 

lines are in “( ).” 


Initial Set Up 


This is a J 

TACKY PROGRAM ^ 

1.0 P R1N T'' r jR H N D 0 M FI j.... E 3 liftl 11 
15 INPUT" F' ILE NAME !i ; FF$ : PR I NT" PERU OR MR T TF 

20 GETKT : IFK$=""THEN20 

21 IFK$="W"THENGOSUB100 

22 I Fi<$' : - ,! R" THENGOSUE400 

23 END 



Line 15 can get the user into big trouble. There should be a “quit” option included in the so called menu. Also 
in line 15, line 23 will simply stop the program if the user does not select R or W. 


RUN/STOP and RESTORE is another way out. 


2 -The replace option (6150) is in effect. It will replace the existing file and has been known to mess up other directory en¬ 
tries. 
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8320 


8320 Writing Random Files 


99 REM #### TO WRITE! RANDOM FILE 
108 OPEN 15 , 8 , 15 , " I " : M$=CHR$ (44 > 

110 OPEN 108 .- 10 . "#" 

120 0 PEH 5 , 8 , 5 , "@ : 11 +FF$+ " , 8 , W " : H= 1 : 003080300 

100 opens the command channel and initializes (4300) the disk in the process. CHR$(44) is just a comma for 
data input. (5400) 

110 opens the random file. (8121) 

120 opens the companion sequential file with the replace option in effect. You may wish to remove it. (6150) 
The first record we write will be record # 1.9900 is the usual “error channel” read routine. 


290 N$^sTR$H > : I MRU! i! SftliLHTTE ; D$ 


Here the record number is converted to a string and the user asked for the data. A great deal more data could 
be placed in this record since an entire block will be set aside for this entry. Using an entire block for a single 
string is a waste. 


210 PR I NT# 10 N$M$D$ 

2 2 0 U U o U B 3 0 0 

210 sends information to the buffer 

220 sends the system to the “Block Allocate” routine. (8340) 


230 RR I NT " TRACK. 5! T, " SECTOR.“ S 

240 PRINT#5,N.:H$.:T;M$;S 



230 simply informs the user of the track and sector numbers selected by the DOS. In practice the user does 
not need this information since it is contained in the companion Sequential file. This line 230 could be deleted 
without affecting the files in any way. 

240 writes information to the sequential file. Note the use of semicolons to separate numerix from string vari¬ 
ables. As you can see the sequential file contains the record number along with its assigned track and sector. 


250 PR I NT# 15 1 “B.W : ";|. 0 ; 0 ;T;S 


L 


Sector l as set subroutine 8000 
Track \ 


I Drive #(0150) 

Channel # of random file, line 110, 3rd number 
file number of command channel, line 100,1 st number 


This command causes the information in the buffer, from line 210, to be placed on trackT, sectors. 


260 PRINT" FlN 0 THER < V/'N > 

261 GETKt : IFK$=""THEN 261 

262 I FKsr= " S’ ,! THENN=H +1 : GOTO 200 
362 IFKTO " N " THFN26 ! 

; j -- rr I;-;- . Here the user has the option to write another record. Line 

r >:.) L-i... UOC-J • L-UJoc. uJJOi:: I j 262 increases the record # by one automatically. 

23S RETURN 
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8320 — 8330 


8320 Writing Random Files (Cont’d) 


Note: If we were using the “Buffer Pointer" command (81 26) to separate this block into fields, we would use 
that command prior to line 210. 

Line 270 closes all files, sequential, random and command respectively. In practice only the sequential needs 
to be closed when changing from read to write operations. The random file and the command channel could 
be opened at the beginning of the program and closed at the end as in “GEN REL” (7000) 


8330 READING RANDOM FILES 

339 REM **** TO READ RANDOM FILE **** 
460 OPEN 15,8,15,"I"•C$=CHE$<13) 

410 OPEN 10,8 ■ 10 " #" 



The lines 399,400 and 410 are nearly identical to lines 99,100 and 110 respectively. Line 420 opens the 
sequential file to read. 


430 


INi"NNICH RECORD 
INPUTEH : PRINTCT" #' 


READ?" 


HIST FIT US " 0$ 


Most of this line consists of screen headings in addition to asking the user for the record number. In practice 
there is no need for the last batch of headings. They are there to help you explore the STATUS function as it 
relates to some disk operations. 

44@ I NPUT#5 .■ M .i 1 S : PR IN ! N .• f > .« •::> ! 


Record number, Track and Sector numbers are received from the sequential file (fn=5) and printed to the 
screen. 


ST is the STATUS of the input/output device. This print statement is for infornpation purposes only. Now would 
be a good time to take a look at the numbers in the tables in (8222) 


458 i FSTO0THENPRI NT" LAST RECORD IH FILE" 

Actually a STATUS of 64 is all we’d expect to find. 64 signals the end of the file. The sequential file programs 
in (6000) could have used the status function instead of the flag system. “COMMAND DEMO” (6300) uses 
the STATUS variable to “find the end” of the file. Line 450 serves only as an aid to file exploration. 


460 IFNORHANDST=8THEM00T0440 
465 IFN~ENTHEN500 


460 causes the system to keep reading the sequential file for the desired record number. The actual read 
process for the random file won’t start until we reach 500. 


470 PRINT 1 'RECORD 


40 


This line is simply user information and is not executed if the record is found. 
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8330 


8330 


READING RANDOM FILES (Cont’d) 


500 PRINT"#"N M TRACK."T 


SECTOR 1 


This line displays information from the sequential file when the record has been found. It is not necessary for 
random file operations. Information from this line should, of course, agree with that from line 230 when this 
record was written. 


510 PRINT# 15, "B.R : "10,0,1', S 

t lit 

*- 1 —Track and Sector numbers from sequential file, 

lines 440 and 465. 

— drive number (0150) 
channel number of random file, line 410 

file number of 
command channel 
line 400 

This “BLOCK-READ” command sends information from the disk into a buffer. 


520 INPUT#10,N$,D$ 


Receives information from the RANDOM file via the buffer. 


530 PR I HTC$ i! # n H::p.3:i: ; ]j $ simply displays the information received in 520 



5*40 01....OSIE5 ■ PRIMT ;! J®flRiEFlj j Fi N0TH E. R (S' / M; 


The sequential file is closed at this time so that it can be reread from the beginning. Without the close, if the 
users last request was for record # 10, the next reading would start witfvecord #11. This is fine if the users 
next request were for record # 15 but would result in “record not found” if the user had requested any record 
less than #11. 


541 GETKT : IFK#== ,! " THEN54 
54 2 IF' K $ ::::: "N !! T H E N C L 0 3 E10 
543 IFXTO !! V" THEM54-1 

i-i:-; ki I ‘I I 1 j ! 

opens the sequential file 
that was closed in 540 and 
starts the read process anew. 



to line 22 and then to the end of the program. This 
is another of the “not so nice” parts of the program 
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8340 — 8360 


8340 “BLOCK ALLOCATE” 


8000 R E11 # % # ft # ^ E L 0 C K R L. L 0 C HI El # # ft ft ft ft ft 
8910 T=1 : 3=1 

8020 PRINT#!5,"E-FI "0,1,3 

8030 I i-iPUT# 15, EN, EM$, ET, ES 

8040 I FEH=65TPIEHT =-ET : S=ES : GOT08020 

8050 RETURN 

8900 END 


Line 8010 starts the search for a free block at Track -1, Sector -1. Strictly speaking, such is not necessary. 
We could start the search at any Track and Sector number. Now would be a good time to re-examine the TRACK 
- SECOTR TABLE in (0233) 

8020 causes the DOS to examine the BAM (0270) for Track 1, Sector 1. If free that block will be allocated. If 
not, the DOS contains a message, EN (error number) = 65 and EM$ (error message) = “NO BLOCK” 

8030 reads that message. ET (error track) and ES (error sector) are the numbers of the next available block 
on the disk. 

8040 sets the new Track and Sector numbers and returns to 8020 to allocate that block. 

8050 returns to line 220 to continue the write process. 

8900 is totally unnecessary and should have been removed. 


8350 Examining the Sequential file 


3993 

R E11 ¥ $ ft $ $ $ G E T 

SE 

:q fil 


8939 

REM#* R 

...IN 

9000 


9000 

OPEH5,8,5,"R 

•••ID 

SRMPI. 

..E , S, R" 

90 1 0 

GE T’#5 .■ G$ : PR 11 

NTT 



9020 

IFST~ : 64THEHCI 

_.os 

■ p. l: *"j ■ jirr |‘. 

•ID 

9030 

GOTO9010 





This routine is very much like that 
in (6000) as explained in (6235). 

Line 9020 stops the process 
when the disk status is 64. That’s 
the signal forthe“end of the file.” 


8360 Error Channel Read Routines 


99 00 R EII ft ft ft R E FI D E R R 0 R C H R N H E L ft ft ft ft 

9910 IHPUT#15,EN,EH$,ET,ES 

9920 IFEN<207 HEHRETURM 

9925 IFENC20THENRETURN 

9930 PR I NT EH; Eli*, ET, ES : CLOSES : CLOSE 18 


CLOSE! 


END 


Standard routine as described earlier. You’re not 
crazy, lines 9920 and 9925 are identical One of them 
should have been removed. 
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8400 


8400 LISTING of “RANDOM FILES” 


10 PRIW'SHfiNHOtt-FIluESWr.**. ..■< 

15 INPUT "FfcLE- 'NAME " 'if F %■ PR IIff" RERD OR WRITE " 

20 GETK*- fPKI : -" "TflEhl20 v 

21 IFK.*="U"THENGOSUE100 

22 IFK*="R"THENGOSUB400 

23 END 

93 REM **** TO WRITE RANDOM FILE **** 

100 OPEN 15, 8,15,"I" : M*=CHR*<44) 

110 OPEN 10v 60 10.' "#" ’• 

120 OPENS f8 ,5. "is: "+FF*+", $, W" = N= 1 '■ GQSUB3900 
200 N*=STP*<H ) •' INPUT " WSDATfl *"; D* 

210 PRIHT#10,N*M*D* 

220 GOSUB8000 

230 PRINT"TRACK-"T,"SECTOR-"S 
240 priht#5,n;h*.;t.;n*.;s 
250 PR I NT# 15, " B-W "100 ; T; S 

260 PRINT"ANOTHER(VV'H) 

261 GETK* : IFK*=" "THEN261 

262 IFK*="V"THENH-N+1:GGTG200 

263 I FKfO" N " THEN261 

270 CLOSES:CLOSE10 : CLOSE 15 
299 RETURN 

339 REM mm TO READ RANDOM FILE mm 
400 OPEN15,8,15,"I":Cf=CHP$<13> 

410 OPEN10,8,10, 

420 OPENS,8,5,FF$+",S,R"•GOSUB9300 

430 PRINT"WHICH RECORD TO READ?" : INPUTRH : PRINTCf" 

440 INPUT#5,N,T,S : PR INTH,T,S,ST 

450 IF STO0THEHPRI NT " LAST RECORD IN FILE" 

460 IFH<>RNANDS T=0THEHG0T0440 
465 IFH=RNTHEN500 

470 PRINT"RECORD NOT FOUND" : GOTO540 
500 PRINT"#"N" TRACK-"T" SECTOR"S 
510 PRI NT#15,"B-R "10 i 0,T;S 
520 I NF'UT#10, NT , D$ 

530 PR I NTC$ " # " N$C$'Df 

540 CLOSES = PRI NT" JWREAD ANOTHER(V/N)" 

541 GETKi :: IFK$=" "THEN541 

542 IFK$="N"THENCLOSE10:CLOSE 15:RETURN 

543 I FKt-C> " V " THEN541 
550 GOT0428 

8000 REM*##BLOCK. ALLOCATE**#*#*** 

8010 T=1 : S=1 

8020 F'R I NT# 15," B-A ■ " 0, T, S 

8030 I NF'UT# 15, EH, EM*, ET, ES 

8040 IFEN=65THENT=ET:S=ES:GOTO8020 

8050 RETURN 

8900 END 

8998 REM*#*#*#GET SEQ FILE******* 

8993 REM** RUN 9000 ** 

9000 OPENS,8,5,"RND SAMPLE,S,R" 

9010 GET#5,G* : PRINTG*, 

9020 IFST=64THENCL0SE5 : END 
9030 GOT09010 

9900 REM***READ ERROR CHANNEL**** 

9910 I NF'UT# 15, EN, EM*, ET, ES 
3920 IFEHC20THENRETURN 
3925 IFENC20THENRETURN 

9930 PRINTEN,EM*,ET,ES = CLOSES:CLOSE 10:CLOSE 15 = END 


T" 


II 


"l«STATUS"Cf 
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8500 


8500 An After thought 


Rem: With this program, you can examine the contents of any block on the disk in the drive. The system may 
pick up some bytes that when printed to the screen will cause wierd things to happen. Taken out of context, 
and if you want to have a little fun, go ahead and enter and run it. (It is not on “FRIENDLY FLOPPY”). 


5 RE 11 EX RANDOM 

10 OPEN15,8,15 
20 OPEN 10.■ 8.• 10.. "#" 

30 INPUT"T,8" . i ,S 

48 PR I NT# 15, 11 U1 : "10; 6 ; T, S 

50 GET# 10FIT : PE I NTflT; 

60 IFST ; -"0THEN50 
70 CLO3E10:CLOSE15:ENH 


Line 40 shows the use of “USER1 ”. After you’ve run the 
program as is, change “U1 ” in line 40 to “B-A” and see if 
you can find a difference. Line 60 is for use with the “B-R” 
command. 


User instructions Simply give it a Track and Sector number. There is no “error channel read” routine so a flash¬ 
ing red light may mean you’ve given it an illegal track and/or sector number. You can have fun with this if your 
wedge is active. Refer to (233) for legal Track and Sector numbers. 

To eliminate some of the strange “characters” you might try this: 

ChangeLine50to 50 0E T # 1 0 .. R $ 


and add these lines. !'f, \ f CHE$ ( 0 ■' 


52 Fl-FiSC 1 - Fl$> 

53 I FFK320RFD 1 27THENPR I N T "3"R ! 

54 PRINTCHR$<R>.: 


1" : GOT060 



The Trouble with computers is that just 
when you think you know something they 
let you know that^there’s still a 
whole bunch more you don’t. 
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9000 — 9010 


9000 FLASHING RED LIGHT 



CHAPTER DIRECTORY 


9100 

«WEDGE» Active 

9200 

PROGRAM Method 

9210 

Advantages 

9220 

Disadvantages 

9230 

Explanation 

9240 

How to Use 

9250 

Output 

9300 

IMMEDIATE MODE 

9400 

PANIC ABORT 

9410 

Red light flashing 

9420 

Red light solid 

9500 

CAUSES & REMEDIES 

9600 

Problems, problems 

9610 

Disk Stuck 

9620 

«Wedge» won’t work 

9630 

Noises 

9640 

Load Errors 


9001 Type: 15 

9002 Check spelling, change and repeat command. 

9003 Type: OPEN 1 5 ■ 8 ■ 1 5 , " I " 

9004 Type: OPEN 1 5.. 8 .• 1 5 .. " IJI " 

90C5 Type: (Program below. Adjust line numbers if necessary.) 

60910 OPEN 15.. 8.- 15 
60020 I NF’UT# 1 5 , E , .. I , S 

60030 PRINTE■Mf,T■S 
60040 CLOSE15 

Type: RUNS00 .10 

9010 Preliminaries 


( 

f 

X 


/VO O 


1 


Use CLOSE tn 

whenever possible A 

_/ 


Believe it or not, the flashing red light is your friend. Like most good 
friends, it can be both a big help and a real pest. 

The drive flashes its red light to signal that it can’t do what was asked. 
(The sky is probably not falling.) 

Sometimes you don’t even have to bother shutting it off. If you know the 
source of the problem and fix it, the red light will go off by itseif. 

Avoid removing disk when red light flashing. 
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9100 — 9230 


9100 


9101 

9102 

9103 

9104 

9200 

9210 

9211 

9212 

9220 

9221 

9222 

9230 


«WEDGE» DOS 5.1 


REM: If you look at lines 9001 to 9005, it is obvious that the WEDGE 1 
command is the shortest. More than that, it is equivalent to the program 
process shown in 9005. 


Type: 1.5 2 

If the red light is still flashing and all you see is “Syntax Error” your WEDGE is not active. 
(See 1230 for help on activating your WEDGE.) Use a different method to shut off the red 
light. 

Now you see something like this. Refer to 9500 or your user’s manual to analyze error and 
repair. 


ERROR MESSAGE .• XX, XX 


If you’ve been playing with files and your red light is on solid and drive is quiet, 


Type: @ I 
(4300) 



THE PROGRAM METHOD 
Advantages of the Program Method 


The program presented (or variations of it) is a valuable technique when you start to write 
your own programs that use data files. This program “outputs” a verbal clue to the source 
of your error. 

Unless your WEDGE is active the only way to read the error messages in your DOS is via a 
program. Like the ordinary INPUT (5340) statement, INPUT# works only in program mode. 


Disadvantages of Program Method 

You may not enjoy typing while the red light is flashing. 




-TB' 


\\)\^ 


If you’re not careful using line numbers, you can mess up your program. 


CAUTION!!! 


Program Explained* 


6 0000 R E ! v i -M * * R E R I) C Q M M R H I) / E R R 0 R C H fl H r-l E L. 

/ f* 

— Line numbers are started high so that the program can be safely 
added to an existing program. Make necessary adjustments if your 

(Continued) 

1 Don’t feel sorry for yourself about having to load the WEDGE. Some systems, Brand X, 
require loading their entire DOSes before they can even load a program. 

a. 

is equivalent to s.i: ! and can replace it in all WEDGE commands. 

* This is an elementary “how to” treatment. For generalizations see 5030. 
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9230 — 9234 


9230 


9231 


9232 


9233 


9234 


(Cont’d) program already has a line 60000. Lower line numbers may of 

course be used. 

You may wish to preface this with an END statement, 
ex. 59999 END 


600 1 0 


OPEN 15 



must be 15 to open command channel 


8 for unaltered drive 


FILE NUMBER. May be any number from 
1 through 255, but use of 128-255 is not 
recommended. 


NOTE: The FILE NUMBER is the one used in the following statements. 


60020 


May be any BASIC variables. 
The 2nd must be a string. 
The others may be string. 
Adjust next fine accordingly. 


E = error number in your manual 

M$ = error message 

T = track number 

S = sector number 


Use the FILE NUMBER (1 st number following 
“OPEN” in the preceding line.) 


* - INPUT# is the command that directs the computer 

to receive its information from a peripheral device. (5034) 


60036 printe; n$,i;s 

REM: This is just an ordinary PRINT statement. It directs the computer to show you what it 
just read from the drive. You can adjust it to any legal print format you like. You must, of 
course, use the same variables you used in the line above. 


60040 CLOSE 15 


FILE NUMBER. Use the 1 st number from 
the open statement. 

1 —CLOSES file opened in 60010 



This command will CLOSE all other files on the drive. Unfortunately your BASIC program 
(if you’re running one) will not know it and try to read or write to a closed file. That will 
cause a syntax error. When programming, 

OPEN command channel FIRST. 

CLOSE command channel LAST. 

See also 5020 and 5032. 
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9240 — 9251 


9240 How to Use 


9241 


9242 

9243 


In general- Type program (see below) 

Run program (see below) 

Red light goes out* 

Error message appears* 

Interpret results (9500 and user’s manual) 

Repair 

If no program in memory, type the program with smaller line numbers. To run, just type: RUN. 
GO TO 9500. 

If you have a program in memory that you can’t afford to lose, one of the following should 
work. 

Find at least one unused line in your program. After the end of your program is most 
convenient. The beginning is the next best place. 


At the end: 


63399 OPEN 15 , 8, 1 5 : INPUT# 15, E, M$, T, S : PE INTE; M$, TS : CLOSE 






Largest allowed line number 

To run, Use: F':! U N b U y y y 

At the beginning: 


You can’t possibly hve 
used all of these line 
numbers—can you?? 


1 OPEN 15,8,15 : INPUT#i5,E,H$,I 

L. 


- You can even use 


m ,IiS ; CLOSE 15 : END 


To run, use: RUN . Now you’ll have to type RUN XXX to run your main program. Ugh! 


9244 If you want to use this sequence of commands as part of a “file using” program, use SUB¬ 

ROUTINES. The best way to learn how is to study examples. Sequential Files (6236) and 
Relative Files (7338) 


9250 Program Output 


REM: The following is produced 
only by the program method or 
equivalents each with active WEDGE. 


9251 General Form: (controlled, of course, by the PRINT statement in the program.9233) 



ERROR ME: 



error number (refer to user’s manual) 


sector number 
track number 


*lf your drive is not on, nothing will happen and I mean nothing. Go on, ty it. Use RUN/STOP 
key and RESTORE key to get your computer back. 
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9252 — 9302 


9252 

9253 

9254 

9255 

9300 

9301 

9302 


Error Messages from the DOS are like those from BASIC in that sometimes they are helpful 
and at other times cryptic. Anything is better than nothing (maybe). 


Some error messages cover several different problems. Conversely a given problem will 
sometimes cause different messages. Some “error” messages aren’t even indicative of a 
problem. (#50 “record not present” in relative file usage (7152) or #1 “files scratched” in 
scratch operations (4500)) 


The track and sector can also be both useful and cryptic. In simple operations you’ll see 
mostly 0’s since track and sector numbers don’t apply. Generally track 18 errors refer to 
problems in the Directory (260) and BAM (270). 


If you type @ with an ACTIVE WEDGE or run the program, the red light is not flashing, you’ll 
see. 


@0‘| OK, 00, 00 



Section 9500 contains a list of common problems and rememdies. If it doesn’t help,see 
your user’s manual. 


IMMEDIATE MODE COMMANDS 


REM: Advantage: Easier to type. 

Disadvantage: No error message 

These shut off the light but do not tell you 
why it was on. They are great if you already know 
what happened and forgot to activate the WEDGE. 

If you get a “file open” message, it’s safest to type L-LUot 1 b and then start over. (You can also 
start with the second line of the sequences on the right if you know that OPEN 15, 8, 15 
was used earlier. If file number 15 has been opened toanother device or even another drive 
channel, these sequences will not work until you CLOSE 15. 


If there is no disk in your drive, that’s the problem.* 


Type: 


OPENlb,8 
CLOSE 15 


! 'IJJ !I or type: 


OPEN15,8,15 
PR I NT# 15, "LI!" 
CLOSE 15 


REM: This command jumps to a special location in your drive’s memory. Your drive will think 
it just woke up. Further discussion is beyond the scope of this text. 


* You could simply insert a floppy and give another command. This practice is not 
recommended. 
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9303 — 9406 


9303 


9304 

9400 

9410 


9420 


If there is a disk in the drive, especially if you are working 

Type: OPE N15.. 8, 15.. " I " or type: 

CLOSE15 


on data files, 


OREM 15.-8, 
PRINT#15, 
CLOSE 15 


15 

"I" 


REM: “I” is short for “INITIALIZE”. 



The “Command Sending” techniques used above are described in 4100. You’ll find 
“INITIALIZE” discussed in 4300. 


PANIC ABORT 


DRIVE QUIET/RED LIGHT FLASHING 

Simply “error condition” (0140). Your 
command was accurately given. You want 
out of the situation. You don’t want to 
bother with preceding sections. Your 
«Wedge» is not active. (If it is, @ will do it). 

It’s up to you ... 

The risk to your software is negligible 
but present. 

Simply: If you need to, insert or remove disk. Re-issue command. 
The technique above, although not recommended, is effective. 



DRIVE WORKING/RED LIGHT ON SOLID (only occasional flashes) 

Working (0140) 

You have already tried RUN/STOP & RUN/STOP with RESTORE but the system won’t listen. 

It’s up to you... 

Both of these risk software slightly, but they may be your only alternative. 

Either Turn Off the computer or Open the door to the drive. 

Either will quiet the drive. 

If the drive doesn’t “quiet” within 15 seconds or so, shut it down. That’s the real risk to the disk inside. 
Remove the disk. Power up system as necessary. Cross your fingers and start over. Check out (9600) 
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9420 — 9500 


9420 (Confd) 

NOTE: If the methods of the preceding sections failed, you may have a hardware problem. 
See your dealer or call a consultant. 


9500 CAUSES AND REMEDIES 

REM: This list is not exhaustive, but does hit most common problems encountered by 
beginners and old timers in a hurry. Data file error messages are covered in those chapters. 


NOTE: Shut off FLASHING RED LIGHT before inserting or removing a disk. 


OPERATION 

CAUSE 

REMEDY 

FOR HELP 

# MESSAGE 

ALL 

No Disk In Drive 

Insert Disk 

500 

74 Drive Not Ready 

21 Read Error 

20 Read Error 

ALL 

Disk Misaligned 

Remove & Reinsert 

600 

500 

74 Drive Not Ready 

21 Read Error 

20 Read Error 

ALL (except ‘format’) 

BLANK 

Disk in Drive 

‘format’ disk (NEW) 

2,000 

74 Drive Not Ready 

21 Read Error 

20 Read Error 

ALL 

Improper Command 

Return or Re-study 

Specific 

Section 

30 & 39 Syntax Error 

LOAD 

Mistyped Name 

Retype 

1000 

62 File Not Found 

LOAD 

Program Not On Disk 

Change Disk or Name 

1000 

62 File Not Found 

LOAD 

Attempting to Load a 
Data File 

NONE Only PRG’s & $ Can 

Be Loaded 

1000 

64 File Type Mismatch 

SAVE 

Name in Use 

Change Name on Disk 

3120 

63 File Exists 

SAVE or any Write 

No Room On Disk or in 

Change Disk or Scratch 

3120 

72 Disk Full 

Operation 

Directory 

Unwanted Entries 

4500 


SAVE with Replace 

Mistyped Name 

Retype 

3230 

62 File Not Found 

SAVE with Replace 

Program Not On Disk 

Change Disk or Ordinary Save 

3120 

3200 

62 File Not Found 

Using File Programs & 
Search Tricks 

Changing Disks 

INITIALIZE Disk 

4300 

29 Disk ID Mismatch 

71 Directory Error 

SCRATCH 

Reading Error Channel 
After Operation 

NOT a Problem 

Hence No Remedy 

4500 

1 File Scratched XX 00 

ALL Especially‘Write’ 
Operation 

Using disk from Another 
CAM System 

Additional Software 

103 

73 DOS Mismatch 

ALL 

Using Disk Prepped on 
BRAND ‘X’ 

Probably None 

103 

74 Drive Not Ready 

21 Read Error 
20 Read Error??? 
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9600 — 9630 


9600 “I can’t get the disk in” 


You’ve already opened the door. 
There is no disk in the drive. 

DO NOT FORCE! 

Exchange disk. I have one with a 
bludge. It doesn’t want to go in, 
it may not want to come out. I neither 
want to pay a repair bill or open up 
door myself. 


9615 “I can’t get the disk out” 


The door is open, of course. 

There is a disk in the drive (you can feel it there) 

DO NOT FORCE! 

Wobblegently. A badly taped write protect notch can hang upa disk. Simply re-tape. If it’sonly onediskthat 
hangs up, exchange or discard. 


If it’s still stuck you need more technical help than I can give you. Call your dealer. 


9620 “My «Wedge» won’t work.” 


9621 Do you have another machine language program loaded? If so they could be in conflict. It starts at 52224. 

Where it goes from there or where it’s ending address is I have no idea. 


9622 Assuming you loaded and ran it, since the last time you powered on, did you by any chance type: @Q? If so, 
type SYS 52224 to re-activate. 


9628 If it still won’t work, you may need another copy. I know I’ve seen an article on how to do that, short of an en¬ 
tire back up, but I can’t find the silly thing. 


9630 “My drive is making strange noises.” 


V Count your blessings 
r if you find you were 

V being just plain dumb 2 



Check out (0130) & (0140), & (2215). If you can identify the noise, don’t worry about it, it’s normal. 

A soft squawking may be a forerunner of overheating. Power down as soon as possible and let it cool off for a 
while. 

If it’s been on for several hours and working hard, don’t worry too much. 

If it’s only been on a little while you’ve got a problem. Consult your dealer. 

If you’ve never experienced a “head crash,” (knock wood), “they” tell me you can’t mistake it. You have my 
deepest sympathy. 

Other strange noises should be checked out by a technician. 


2 -1 have made a truly amazing discover— none of the devices in my system work unless I plug them into the wall outlet. 
I should get a prize for that one! 
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9640 — 9644 


9640 “I’m getting load errors.” 



9641 When was the last time you “cleaned the heads?” If you’re not in the habit of doing so at least once a month, 

start getting into the habit now! 

So, you’ve cleaned them and you’re still having problems.. - CONTINUE 


9642 If it’s always the same program, and only that, that could signal software trouble. I hope you have a back up 
copy. 



9643 If it’s always the same disk, and only that disk, guess what? I hope you have a back up. 


9644 No pattern? You’ve got a problem. I told you earlier that FLOPSEY almost died from the strain of checking 
out the contents of this text. She’s now been semi-retired to a loader. We don’t ask her to write any more 2 . 

May I suggest you find a reliable dealer? Check out your problem. Frankly, I’m nursing the one along since 
the repairs will be quite expensive no matter what. On the other hand, it could be something simple. Don’t 
give up until you get a diagnosis. 


2 - That tears it! Now I know I’ve gone over the deep end. I just hope this book gets done before I burn up another one. 
FLOPSEY II gets her “heads cleaned” once a week whether she needs it or not! 
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10000 


10000 APPENDICES 


CHAPTER DIRECTORY 


10100 

Procedure Checks Lists 

10110 

System Set Up 

10120 

Power On 

10130 

Insert Disk 

10140 

Remove Disk 

10150 

Power Off 

10160 

LOAD 

10170 

“Format” (NEW) 

10180 

SAVE 

10200 

COMMAND SUMMARY (DOS 2.6) 

10210 

Elementary Operations 

10220 

General Operations 

10230 

Sequential File 

10240 

Relative Files 

10250 

Random Files 

10260 

«WEDGE» DOS 5.1 

10300 

DUAL DRIVE Patches 

10310 

Program Changes 

10320 

«WEDGE» 

10330 

Duplicate 

10400 

FORMS 

10410 

Head Cleaning Log 

10420 

Hardware 

10430 

Repairs/Maintenance 

10440 

Purchase Record 

10450 

Software 

10460 

Disk Inventory 

10500 

ID Code Check List 

10600 

PRINT PROGRAM LISTINGS 

10610 

“SEQ FILE PRINT” 

10620 

“GEN REL PRINT’ 

10630 

“RANDOM PRINT’ 

10700 

SYMBOL LIST 

10800 

BIBLIOGRAPHY 

10900 

INDEX 
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10100 — 10180 


10100 Procedure Check Lists — Summary Only. Not for 1 st time use. 


10110 SYSTEM SET UP (0310) 


10120 POWER ON (0410) 

□ Stuff gathered 


□ System set up 

□ Prep Drive 


□ Cartridge Inserted 

□ Prep Printer 


□ Monitor/Television ON 

□ Interconnect devices 


□ CheckDriveforDisk 

□ Connect to power 


□ Printer ON 



□ Drive ON 



□ C-64 ON 


10130 INSERT DISK (0510) 


10140 REMOVE DISK (0610) 

□ System ON 


□ Drive “Ready” 

□ Drive “Ready” 


□ Open Door 

□ Open door 


□ C&tch Disk 

□ Disk from storage 


□ Place in envelope 

□ Remove from envelope 


□ Place in storage 

□ Aim 



□ Insert gently 



□ Close Door 




10150 POWER OFF (0710) 

□ Checkfordisk in drive(remove) 

□ Computer Power OFF 

□ Checkagainfor disk 

□ Drive Power OFF 

□ Printer Power OFF 

□ Monitor/Television Power OFF 

□ Lastcheckforpowerlights 

□ Cover 

□ Unplug the whole mess 


10160 LOAD (1010) 

□ System Set Up 

□ System ON 

□ Drive Ready 

□ Disklnserted 

□ Program Name Handy 

□ Program in memory can be sacrificed 

□ Typecommand 

□ L^stcheckon program in memory 

□ Hit return 


10170 “Format” (NEW) (2010) 


10180 SAVE (3010) 

□ System Set Up 


□ System Set Up 

□ System ON 


□ System ON 

□ Drive Ready 


□ Drive ready 

□ DiskSelected (Careful here!) 


□ Formatted DiskSelected 

□ Name chosen 


□ Disk write protect notch uncovered 

□ ID chosen 


□ Disk inserted 

□ Check Disk Again 


□ Name chosen 

□ Typecommand 


□ Initialize if necessary 

□ LastchancetocheckDisk 


□ Typecommand 

□ Hit return 


□ Hit return 

□ Verify 

□ Make Back up copy 
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10200 — 10220 


10200 COMMAND SUMMARY (DOS 2.6) 

10210 ELEMENTARY OPERATIONS 



LOAD" PROGRAM", Q 

normal (1000) 

LOAD "PROGRAM " , 8,1 

special memory (1260) 

SAVE"0: PROGRAM ",8 

normal (3000) 

SAVE"0: PROGRAM", Q, 1 

special memory (3220) 

VERIFY ”PROGRAM " , 8 

(3310) 


10220 GENERAL OPERATIONS 



OPENfN, DO, 15 

PRINT*FN,"COMMAND" or OPENf N, DO, 15, "COMMAND" 


“COMMAND” 


C0: NEN FILE=(dt OLD FILE 

COPY (4700) new name 

C0-.NEH FIL £=0: 1S7 OLD, 0: 2ND OLD, 0: 3RD OLD 

COPY (4800) to append 

10 

INITIALIZE (4300) 

R0s NEN NAME=0LD FILE 

RENAME (4600) 

N0:0IS* NAME, ID 

NEW (2000) format disk 

N0 :DISK NAME 

NEW (4200) clear directory 

SQzNAME 

SCRATCH (4500) 

V0 

VALIDATE (4400) 

UI 

reset DOS (9302) 

UI + 

speed to C-64 (automatic on 
power up) 

UI- 

speed to V-20 
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10230 — 10250 


10230 SEQUENTIAL FILES (6100) 


OPENf N , DO, CH , “0* FIL E 

WA#£,S,R" 

open to read 

OPEN™, DO,CH, "•* FILE 

NAME, 8,N- 

open to write 

PRINT#™, . - . 


write to file 

INPUT#™, „ . . 

GET #™, . . . 


read file 

read byte by byte 


10240 RELATIVE FILES (7100) require open command channel. Assume: OPEN15.8.15 


OPEN™, DO, CH, "FILE 

HOME"*", L,“+CHR* {RECORD LENGTH) 

create 

OPEN™, DU, CH, “FILE 

NAME" 

use 

PRINT#15, "P"CHR« < CH) CHR* <£.0 ) CHR* (//I) CHR* (POSITION) 

position at 
beginning of record 


PRINT#™, . . - 


write file 

INPUT#™, - . . 


read file 

SET*™, . . . 


read byte by byte 


10250 RANDOM FILES (8100) require open command channel. Assunje: 0PEN15,8,15 


OPEN™, DU, CH, -#•• 

open data file 


PRINT# 15, H B-A: “0; TRACK; SECTOR 

Block - Allocate 

PRINT#15, "B-Fs “0; TRACK; SECTOR 

Block - Free 

PRINT#15, "B-W: “CH;Q; TRACK; SECTOR 

Block - Write (buffer to disk) 

PRINT#15, "B-R: ”CH;Q; TRACK; SECTOR 

Block - Read (disk to buffer) 

PRINT#15,”B-P: "CH;POSITION 

Position write 
beginning of block 

PRINT#15, M UAs "CH;DU; TRACK;SECTOR 

read entire block from buffer 

PRINT#15, M UB: "CH;DU; TRACK;SECTOR 

write entire buffer to block 


PRINT QFN, . , . 

write to buffer 

INPUT#™, . . . 

GET#™, - . - 

read from buffer 

read from buffer byte by byte 
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10260— 10310 


10260 «WEDGE» Command Summary 2 (DOS 5.1) 


e 

Read error (command) channel 


View directory without overwriting memory 

@Q 

Deactivate «Wedge» 

SYS52224 

Reactivate 3 «Wedge» 

/PROGRAM 

normal load 

'/.PROGRAM 

special memory load 

+PROGRAM 

normal load with automatic run 

+0: PROGRAM 

normal save* 

@COMMAND 

@0: COMMAND 

send any command (10200) 



10300 Dual Drive Patches (MSD-SD2) 


Rem: You “dual-ly” operators have to do a little work since I took some single drive short cuts. Pay close 
attention to “drive number.” In this text you’ll see a “ 0 ” or“0 s ” or none at all. If I specified the 0 , you’re 
fine. If I did not you’ll have to do so in most cases. If you want to address drive number “one,” the slot on the 
right, replace 0’s with 1’s. 


The LOAD directory commands may cause some problems if you don’t specify a drive numberand you don’t 
have a disk in one of the drives. Your “dual-ly” will try to read both directories for you. 


10310 The following program lines must be changed or you’ll wind up with some read error. Please accept my 
apologies for the inconvenience. (You lucky stiffs—you deserve the extra work). 


( “1STSEQ FILE PGM” ) 

all 

( Line300 

{ “SEQ FILE # PGM” 

require 

j Line 600 

{ “SEQ FILE PRINT’ ) 

changes in 

l Line 800 


UseXOMMAND DEMO,” Lines254 and 
274 as your models. 


{ “COMMAND DEMO”} 
{ exp$-print} 


may require a change in line 220. 
replace “$” with “$0” in line 101. 


GEN REL 
GEN REL PRINT 


each 
require 
changes in 


| Lines 320 and 20120 
l (see below) 


320 OPEN3,8,3,“0:”+FF$+“,L,” + CHR$(L) 

20120 OPEN3,8,3“0:”+FF$ 

(Continued) 


2 - Use of «Wedge» may conflict with some machine language programs. Power off, wait 10 seconds, power on between 
loads. 

3 - Computed from loader on TEST/DEMO DISK. “C-64 WEDGE.” Agrees with that specified in “DISK BONUS PACK.” 

*- Use“0: ’’todecreaseprobabilityof DOS problems. The“replaceoption” wasomittedon purpose. Changeto“1 :”for 
use of 2nd drive in a dual drive system. (10200) 
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10310— 10410 


10310 (Cont’d) 


i RANDOM FILES \ Can be patched up by specifying the drive number in lines 100,110,120,400,410, * 
\ RANDOM PRINT j 420 and 9000. By the time you get to this point you’ll be able to handle the changes 
yourself. Be sure to use 0 or the BLOCK commands will be foluled up. 


10320 The «WEDGE» and DOS 5.1 works fine so long as you specify the drive number when needed. I didn’t try 
everything but had no problems with what I did use. You’ll need to get a copy. Hopefullyyourdealercan help. 


10330 Be sure to check out the “DU PLICATE” command. Ignore all my remarks on back up programs and use this 

beauty when you want to copy an entire disk. Cover the write protect notch of your source disk. 


10400 FORMS 


Rem: Feel free to copy for your own use. These forms may suggest some “programming” projects. Adapt¬ 
ing “GEN REL” may be the way to start. 


10410 HEAD CLEANING LOG 


HEAD CLEANING LOG Drive _ Year/19 



one per drive per year 





2 


10420 


10430 


Hardware 



Component 



Serial Number 

Source 


Phone Number 

Date Acquired 

$ Price 

Tax 

Other 

Warranty Expires 

Total Cost 



Paid by 


Repairs/Maintenance 


REPAIRS/MAINTENANCE_ 

Component 











gEETr 


10450 


10451 


10452 


SOFTWARE 

or 

Programs 


TITLE___ PGM 

ON__, _ 

-- - 

HARDWARE: Drive, Printer, Cassette, Joystick ______ 

DATAFILES:_, _,___ 

PRELOAD _ 

LOAD ___ 

PRE RUN _ 

RUN or SYS__ 


General 


TYPE 

on ___ 


CREATED BY _ 

PROGRAM 

FOR US E WITH _ 

PROGRAM/DATAFILE 


PROGRAM/DATA FILE 


PROGRAM/DATA FILE 






SEQ/REL 


STRUCTURE: CONTENTS: 

NUMBER OF RECORDS _ 

RECORD LENGTH _ 

DATA TYPE: STRING/NUMERIC _ 

NUMBER of FIELDS/RECORD _ 

FILE NUMBERS _, _ 

NOTES: 





1 

^ccJtsj') $lt-€ ?jP/C^ 

1 

ftp'pLUSY/O&z 'frrf'c a^fy^ASt 







10500 


10500 ID CODE CHECK LIST 

Simply circle used ID codes. Note duplicates 2 (if any) below. 


®01 02 03 04 05 06 07 08 09 OA OB OC OD OE OF OG OH 01 
10 11 12 13 14 15 16 17 18 19 1A IB 1C ID IE IF 16 1H 11 

20 21 22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 2F 26 2H 21 

30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 36 3H 31 

40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 46 4H 41 

50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 56 5H 51 

60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 66 6H 61 

70 71 72 73 74 75 76 77 78 79 7A 7B 7C 7D 7E 7F 76 7H 71 

80 81 82 83 84 85 86 87 88 89 8A 8B 8C 8D 8E 8F 86 8H 81 

90 91 92 93 94 95 96 97 98 99 9A 9B 9C 9D 9E 9F 96 9H 91 

AO A1 A2 A3 A4 A5 A6 A7 A8 A9 AA AB AC AD AE AF A6 AH A1 

BO B1 B2 B3 B4 B5 B6 B7 B8 B9 BA BB BC BD BE BF B6 BH BI 

CO Cl C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC CD CE CF C6 CH Cl 

DO D1 D2 D3 D4 D5 D6 D7 DB D9 DA DB DC DD DE DF D6 DH D1 

EO El E2 E3 E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF E6 EH E! 

FO FI F2 F3 F4-F5 F6 F7 F8 F9 FA FB FC FD FE FF F6 FH FI 
60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 66 6H 61 

HO HI H2 H3 H4 H5 H6 H7 H8 H9 HA HB HC HD HE HF H6 HH HI 

10 II 12 13 14 15 16 17 18 19 IA IB IC ID IE IF 16 IH II 

JO J1 J2 J3 J4 J5 J6 J7 J8 J9 JA JB JC JD JE JF J6 JH J1 

KO K1 K2 K3 K4 K5 K6 K7 K8 K9 KA KB KC KD KE KF K6 KH KI 

LO 11 L2 L3 L4 L5 L6 L7 L8 L9 LA LB LC LD LE LF L6 LH LI 

HO HI H2 H3 H4 H5 H6 H7 H8 H9 HA HB HC HD HE HF H6 HH HI 

NO HI N2 N3 N4 N5 N6 N7 NB N9 NA NB NC ND NE NF N6 NH NI 

00 01 02 03 04 05 06 07 08 09 OA OB OC OD OE OF 06 OH 01 

PO PI P2 P3 P4 P5 P6 P7 P8 P9 PA PB PC PD PE PF P6 PH PI 

00 01 02 03 04 05 06 07 08 09 OA OB OC OD OE OF 06 OH 01 

RO R1 R2 R3 R4 R5 R6 R7 R8 R9 RA RB RC RD RE RF RG RH RI 

SO SI S2 S3 S4 S5 S6 S7 S8 S9 SA SB SC SD SE SF SG SH SI 

TO T1 T2 T3 T4 T5 T6 T7 TB T9 TA TB TC TD TE TF T6 TH TI 

UO U1 U2 U3 U4 05 U6 U7 08 09 OA OB OC OD OE OF 06 OH 01 

VO VI V2 V3 V4 V5 V6 V7 V8 V9 VA VB VC VD VE VF V6 VH VI 

HO HI H2 H3 H4 H5 H6 H7 H8 H9 HA HB HC HD HE HF H6 HH HI 

XO XI X2 X3 X4 X5 X6 X7 X8 X9 XA XB XC XD XE XF X6 XH XI 

YO Y1 Y2 Y3 Y4 Y5 Y6 Y7 Y8 Y9 YA YB YC YD YE YF Y6 YH YI 

ZO Z1 12 Z3 Z4 Z5 Z6 Z7 Z8 Z9 ZA ZB ZC ZD ZE ZF Z6 ZH ZI 


OJ OK OL OK ON 00 OP 00 OR OS OT OU OV OH OX OY OZ 
1J IK 1L IN IN 10 IP 10 1R IS IT 10 IV 1H IX 1Y 1Z 
2J 2K 2L 2H 2N 20 2P 20 2R 2S 2T 20 2V 2H 2X 2Y 2Z 
3J 3K 3L 3H 3N 30 3P 30 3R 3S 3T 30 3V 3H 3X 3Y 3Z 
4J 4K 4L 4H 4N 40 4P 40 4R 4S 4T 40 4V 4H 4X 4Y 4Z 
5J 5K 5L 5H 5N 50 5P 50 5R 5S 5T 50 5V 5H 5X 5Y 5Z 
6J 6K 6L 6H 6N 60 6P 60 6R 6S 6T 60 6V 6H 6X 6Y 6Z 
7J 7K 7L 7H 7N 70 7P 70 7R 7S 7T 70 7V 7H 7X 7Y 7Z 
8J 8K 8L 8H 8N 80 8P 80 8R 8S 8T 80 8V 8H 8X BY 8Z 
9J 9K 9L 9H 9N 90 9P 90 9R 9S 9T 90 9V 9H 9X 9Y 9Z 
AJ AK AL AH AN AO AP AO AR AS AT AO AV AH AX AY AZ 
BJ BK BL BH BN BO BP BO BR BS BT BO BV BH BX BY BZ 
CJ CK CL CH CN CO CP CO CR CS CT CO CV CH CX CY CZ 
DJ DK DL DH DN DO DP DO DR DS DT DO DV DH DX DY DZ 
EJ EK EL EH EN EO EP EO ER ES ET EO EV EH EX EY EZ 
FJ FK FL FH FN FO FP FO FR FS FT FO FV FH FX FY FZ 
6J 6K 6L 6H GN 60 6P GO 6R 6S 6T 60 6V 6H 6X 6Y GZ 
HJ HK HL HH HN HO HP HO HR HS HT HO HV HH HX HY HZ 
IJ IK IL IH IN 10 IP IQ IR IS IT 10 IV IH IX IY IZ 
JJ JK JL JH JN JO JP JO JR JS JT JO JV JH JX JY JZ 
KJ KK KL KH KN KO KP KO KR KS KT KO KV KH KX KY KZ 
LJ LK LL LH LN LO LP LO LR LS LT LO LV LH LX LY LZ 
HJ HK HL HH HN HO HP HO HR HS HT HO HV HH HX HY HZ 
NJ NK NL NH NN NO NP NO NR NS NT NO NV NH NX NY NZ 
OJ OK OL OH ON 00 OP 00 OR OS OT 00 OV OH OX OY OZ 
PJ PK PL PH PN PO PP PO PR PS PT PO PV PH PX PY PZ 
OJ OK OL OH ON 00 OP 00 OR OS OT 00 OV OH OX OY OZ 
RJ RK RL RH’RN RO RP RQ RR RS RT RO RV RH RX RY RZ 
SJ SK SL SH SN SO SP SO SR SS ST SO SV SH SX SY SZ 
TJ TK TL TH TN TO TP TO TR TS TT TO TV TH TX TY TZ 
OJ OK OL OH ON 00 OP 00 OR OS OT 00 OV OH OX OY OZ 
VJ VK VL VH VN VO VP VO VR VS VT VO VV VH VX VY VZ 
HJ HK HL HH HN HO HP HO HR HS HT HO HV HH HX HY HZ 
XJ XK XL XH XN XO XP XO XR XS XT XO XV XH XX XY XZ 
YJ YK YL YH YN YO YP YO YR YS YT YO YV YH YX YY YZ 
ZJ ZK ZL ZH ZN ZO ZP ZO ZR ZS ZT ZU ZV ZH IX ZY ZZ 


Duplicates 2 


2 - Use a back up program to change id codes without destroying disk contents. 
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10600 — 10610 


10600 PRINT PROGRAM LISTINGS 


10610 SEQ FILE PRINT 

10 REM t» SEQ FILE PRINT ttt 

20 0PEN15,8,15:C$=CHR$(13):H*=V:0PEN4,4:C$=CHR$(13):H$=CHR$(44) 
22 PRINT 1 (CLR)’ 

24 INPUT-FILE NAKE*;FF» 

26 PRINT#4,MC*FF*tt 

30 PRINT"{C/DN}"FFJC$C$ n REflD, WRITE, BET, CHANCE, OR QUIT 1 

40 BETK*:IFK*= ,, THEN40 

45 IFK$="Q , THEN10001 

50 IFK$=-R*THEN600 

55 IFK$='6*THEN800 

60 IFK4="C"THEN400 

65 IFK$<>‘W"THENPRINT‘R,W,B,C,Q":G0T040 
300 0PEN3,8,3,FF*+*,S,W*:G0SUB9999 
310 PRINT'TO WRITE: -FF4C* 

320 INPUT’NAME"‘,N$ 

330 INPUT-TEST SCORE";T$ 

340 PRINT»3,N4M$T$ 

341 G0SU89999 

350 PRINT-ANOTHER?(Y/N)* 

355 GETKt:IFKI=“‘THEN355 
360 IFK*=-N-THENPRINT#3, “i-:CL0SE3:60T030 
370 IFK$<>-Y-THEN350 
380 G0T0320 

400 PRINT'TO CHANGE: "FF$Ct 

405 PRINT-SHOULD {RVONJ'FF$'{RVOF} BE SCRATCHED??(Y/N) 

410 GETKI:IFKt=""THEN410 
415 IFK$="N*THEN24 
420 IFK*O"Y-THEN410 

430 PRINTI15,"SO:’FF$: 60SUB9999:PRINTEMi 
440 60T0300 

600 0PEN3,8,3,FF$+-,S,R* 

605 PRINTi4,C$FFt 

610 PRINT-READING FILE: "FFtCiC* 

620 INPUTI3,N$,Ti 

621 60SUB9999:PRINT#4,Nt,T$ 

625 IFLEFTI(Nt,1)= 1 » 1 THENCL0SE3:PRINT»4,C$C$:60T030 
630 PRINTN$TAB(25)Tt 
640 60T0620 

800 0PEN3,8,3,FF$+-,S,R" 

805 PRINTI4,C$FF$ 

810 PRINT'GET: -FF$C$ 

B20 6ETI3,G* 

821 60SUB9999 

825 IFG$=CHR$ (13) THENGI=“ * 

830 PRINT6$;:PRINT#4,5*; 

835 IFGS<>■t“THEN820 

840 PRINTCS:PRINTI4,C$ 

841 CL0SE3 

842 60T030 

9999 INPUT«15,EN,EM$,ET,ES 

10000 IFEN<20THENRETURN 

10001 PRINTEN:EM*,ET;ES:CL0SE3:CL0SE15:CL0SE4:END 
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10620 


10620 GEN REL PRINT 

100 REM l»l GEN REL PRINT m 

101 REM IMPRINTER REOUIREDMI 
110 READD 

115 REM DIM DC$(D),L(D),P!D),D$!D) 

120 F0RI=1T0D 
125 READDCtd),L(I) 

130 P(I)=L(I-1)+P(I-1)+1 
135 L=P(I)+L(I) 

140 D$(I)=■-■ 

145 NEXT 

150 PRINT"{CLRT6EN REL PRINT":PRINT"{C/DNKC/DN}PRINTER REQUIRED":G0SUB9S00:0PEN4,4:R$=CHR$( 13) 
200 PRINT"fCLRJFILE FORMAT 

210 PRINT"{C/DNJCATA60RVTAB(20)"LEN6TH POSITIONIC/DNJ" 

220 FOR 1=1 TOD 

230 PR!NTDC4(I)TAB(20)L(I)TAB!30)P(I) 

240 NEXT 

250 PRINT" {C/DNHC/DNIRECORD LEN6TH = "L’lC/DNXC/DN)" 

255 IFL>254THENPRINT“{C/DNJTOO LONG" 

260 PRINT"(C/DN) FI - TO PRINT, C - CONT, - ESCAPE" 

265 6ETK4: IFK$=""THEN265 
270 IFK$="*-"THENEND 
275 IFK4=*C"THEN300 
200 IFK$<>CHR$(133)THEN265 

285 PRINTI4,R$R$"FILE F0RMAT“R$R$"CATAG0RY"CHR1!16)“20LEN6TH POSITIONS* 

290 F0RI=1T0D:PRINTI4.DC*!I)CHR$(16)"20"L(I!CHR$(16)"30"P(I):NEXT 

291 PRINTI4,R$"RECORD LENGTH = "L 

292 PRINT"fC/UPJ C - CONT, - ESCAPE 

293 GETK*:IFK*=""THEN293 

294 IFK$="*-"THENCL0SE4:END 

295 IFK4<>"C"THEN293 
300 0PEN15,8,15 

310 INPUT-FILE NAME";FF* 

315 PRINT!4,RtR$CHR$(14)FF*CHRt(I5)R$ 

320 0PEN3,8.3,FFt+",L."+CHP*(L> 

321 G0SUB9999 

325 PRINT"CC/DNJANY KEY TO CONTINUE" 

327 6ETKI:IFK$=""THEN327 
330 PRINT"1CLR)" 

340 PRINTTAB(18)“{RV0N}{C/DNHC/DN}MENU{RV0F}*:PRINT"FILE: "FF$"{C/DN}" 

341 PRINT’ 1 - CREATE NEW FILE 

342 PRINT" 2 - EXPAND FILE 

343 PRINT" 3 - WRITE IN SEQUENCE 

344 PRINT" 4 - WRITE INDIVIDUAL RECORD 

345 PRINT" 5 - READ/PRINT IN SEQUENCE 

346 PRINT* 6 - READ/PRINT EXISTING RECORD 

347 PRINT" 7 - EDIT EXISTING RECORD 

348 PRINT" 8 - CHAN6E FILE 

349 PRINT" 9 - END RUN 

350 IFM>OTHENPRINT"fC/DNJLAST JOB: *M 


(Continued) 
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10620 


10620 (Cont’d) 

355 PRINT'FILE: "FFt", REC »’RM"{C/DN>' 

360 INPUT*JOB t";H 

370 IFM< 10R1D9THEN360 

380 IFM=8THENCL0SE3:60T0310 

390 IFH=9THENCL0SE3:CLOSE15:PRINT*4,R$R4:CL0SE4:END 

400 0NM6QT01100,1200,1300,1400,1500,1600,1700 

910 DATA9 

911 DATALAST NAME,16 

912 DATAFIRST NAME,12 

913 DATASOC SEC 1,11 

914 DATACLASS!9-I2),2 

915 DATASEX(H/F),1 

916 DATAAVE(X.XX),4 

917 DATAD.O.B.(XX-XX-XX),8 

918 DATAPH0NE»(XXX-XXXX>,8 

919 DATACOMNENT,9 

1100 REM tt CREATE NEW FILE « 

1110 PRINT*{CLRJ CC/DN}CC/DNI{RVONJCREATE{RVOFJ: *FF* 

1120 PRINT" {RVONMC/DNHC/DNJNILL DESTROY DATA IF USED ON OLD FILEIC/DNHC/DN1" 

1121 60SUB9500 

1130 PRINT*{C/DNIDIRECTORY ENTRY CREATED" 

1135 PRINT'IC/DN)ANTICIPATED NUMBER OF RECORDS":INPUTN 

1140 60SUB9500 

1160 P=1 

1165 F0RI=1TQN 

1170 RN=I 

1175 S0SUB8888 

1180 60SUB7777 

1185 PRINTI3,"I" 

1186 G0SUB9999 
1190 NEXT 

1199 G0T0340 

1200 REM »» EXPAND FILE tl 

1210 PRINT"(CLR)IC/DN)CC/DN}{RVONJEXPAND{RVQFI: "FF$ 

1220 PRINT"{RVONHC/DNKC/DNJNILL DESTROY DATA IF USED ON OLD FILECC/DNJiC/DNJ" 

1230 PRINT"(C/DNICURRENT LAST RECORD I":INPUTS 

1235 PRINT*CC/DNINUMBER OF RECORDS TO ADD":INPUTA 

1240 60SUB9500 

1260 P=1 

1265 FDRI=S+1T0S+A 
1270 RN=I 
1275 GQSUB8888 
1230 G0SUB7777 

1285 PRINTI3,"t" 

1286 G0SUB9999 
1290 NEXT 

1299 G0T0340 

1300 REM »< WRITE IN SEQUENCE tt 


(Continued) 
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10620 


10620 (Cont’d) 

1305 PRINT"(CLR)IC/DN)(RVONJURITEIRVOF) IN SEQUENCE STflRTINB KITH- 

1310 INPUT"(C/DN)RECORD #";S 

1315 INPUT"IC/DNIWRITE TO I"; A 

1320 FORJ=STGA 

1330 RN=J 

1340 B0SUB2000 

1350 60SUB9500 

1360 NEXTJ 

1399 B0T0340 

1400 REM tt WRITE INDIVIDUAL RECORD »» 

1410 INPUT"RECORD i’:RN 

1420 B0SUB2000 

1430 PRINT"(C/DNKC/DN5ANY KEY FOR MENU" 

1435 6ETK*:IFK$=""THEN1435 

1499 60T0340 

1500 REM tt READ IN SEQUENCE tt 

1505 PRINT"ICLR}IC/DNI{RVONIREADIRVOFI IN SEQUENCE STARTIN6 WITH® 

1510 INPUT"(C/DNIRECORD t’;S 

1515 INPUT"(C/DN>READ TO »";A 

1520 FORJ=STOA 

1530 RN=J 

1540 B0SUB4000 

1550 60SUB9500 

1560 NEXTJ 

1599 PR1NT"{CLR)":60T0340 

1600 REM tt READ INDIVIDUAL RECORD tt 
1610 INPUT-RECORD i";RN 

1620 60SUB4000 

1630 PRINT" {C/DNMC/DNIANY KEY FOR MENU’ 

1635 6ETK4:IFKf="“THEN1635 

1699 60T0340 

1700 REM tt EDIT RECORD tt 
1710 INPUT'RECORD t";RN 
1715 B0SUB4000 

1720 PRINT"(C/DNITYPE: 0 - NO CHAN6E 

1721 PRINT" 10 - CHAN6E ALL 

1722 PRINT' 1 TO 9 - FIELD CHAN6E 
1725 INPUTN:IFN<00RN>10THEN1725 
1730 IFN=0THEN340 

1735 IFN=10THEN60SUB2030:G0T01715 
1740 PRINTDCt(N) 

1745 INPUTDt(N) 

1750 Dt(N)=LEFT$(D$(N),L(N>) 

1755 PRINT'ANOTHER FIELDS(0-9) H :INPUTN 

1760 IFN=0THEN1775 

1765 IFN<10RN>9THEN1755 

1770 B0T01740 

1775 FDRI=1T0D 

1780 P=P(I) 

1785 6QSUB7777 

1790 PRINTI3,D»(I) 

1791 60SUB9999 
1795 NEXT 
1799 60T01715 

1999 REM tttt SUBROUTINES tttt (Continued) 
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10620 


10620 (Cont’d) 

2000 REM tt WRITE RECORD tt 
2005 PRINT"{CLRHC/DNJRECORD t'RN 

2010 G0SUB8888 

2011 60SU89100 

2020 IFC$="t’THEN2029 

2025 PR1NTRN" HAS BEEN WRITTEN" 

2029 60SUB9500 

2030 FOR1=1TOD 
2035 P=P(!) 

2040 PRINTDC$(I)"C "Ld)" SPACES 3 " 

2050 INPUTD*(I) 

2055 D$(I)=LEFT$(Dt(I),L(I)) 

2060 60SUB7777 

2070 PRINT#3,D$(I) 

2071 60SUB9999 
2080 NEXT 
2099 RETURN 

4000 REM tt READ RECORD tt 

4010 60SUB8888 

4011 60SUB9100 

4015 IFCt= , t‘THENPRINT#4,Rt*#‘RN;Ct:RETURN 

4020 IFC*="t"THENPRINT"CCLRTCC/DNJ CC/DNJ"RN" NOT WRITTEN":G0T0340 

4025 PRINT"ICLR}IC/DN)"FFtTAB(20)"l“RN"IC/DN)" 

4030 FORMTOD 
4035 P=P(I> 

4040 G0SUB7777 

4050 INPUT#3,D$(I) 

4051 G0SUB9999 

4060 PRINTI" "DC$(I)TAB(22)D*(I) 

4070 NEXT 
4080 G0SUB9600 
4099 RETURN 

7777 REM tt POSITION POINTER tt 

7780 PRINTI15,"P*CHRt(3)CHR$(L0)CHR$(HI)CHRt(P) 

7781 G0SUB9999 
7799 RETURN 

8888 REM tt RECORD I ALGORITHM tt 

8890 HI=INT(RN/256) 

8891 L0=RN-HIt256 
8899 RETURN 

9100 REM tt CHECK RECORD tt 
9110 P=1 
9120 G0SUB7777 

9130 6ETt3,C» 

9131 60SUB9999 

9140 IFC$=CHRt(255)THENPRINT"ICLR}IC/DN)(C/DNJ’RN" NOT PRESENT":G0T0340 

9199 RETURN 

9500 REM tt WAIT ttt 

9510 PRINT"(C/DNITYPE - C TO CONTINUE / *• ESCAPE TO MENU" 

9520 GETK*:IFK*=""THEN9520 

9530 IFK$="*- "THENPRINT"tCLR>":G0T0340 

9540 IFKt<)’C"THEN9520 

9599 RETURN 

9600 REM tttt PRINT HARD COPY tttt 

(Continued) 
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10620 (Cont’d) 

9610 PRINT 1 (C/DN) FI - TO PRINT, C - CONT, *- - ESCAPE- 

9615 6ETK$:IFK*= 11 THEN9615 

9620 IFK*=-«--THEN340 

9630 IFK$=-C-THENRETURN 

9640 IFK*< >CHR*(133)THEN9615 

9650 PRINT#4,RV’f'RN 

9655 PRINTI4,DI(1)VDI(2) 

9660 F0RI=3T0D:PRINTI4,* -DKIhNEXT 
9699 RETURN 

9999 REH II ERROR CHANNEL READ II 

10000 INPUT»15.EN,EHI,ET,ES 
10010 IFEN< 20THENRETURN 

10020 IFEN=50THENIFN< 30RN >7THENRETURN 
10030 IFEN=50THENPRINTEHI,RN:60T0340 
10040 PRINTEN;EH$,ET;ES:CL0SE3:CLOSE15:CL0SE4 

19999 END 

20000 REH lltl SECONDARY PR06RAH 1111 
20100 PRINT*ICLRJ 1 :0PEN15,8,15:0PEN4,4 
20110 INPUT-FILE NAHE‘jFF$:PRINT#4,FFt 
20120 QPEN3,8,3,FFI:60SU821000 

20130 INPUT'RECORD *";RN:60SUB88S8 
20140 INPUT-LENGTH-;L 
20145 PRINT#4,-RN=-RN- L='L 

20150 PRINTI15,-P-CHR$(3)CHRt(L0)CHR$(HI)CHRI(1):60SUB21000 

20160 FORMTOL 

20170 GETI3,G*:60SUB21000 

20175 IF6$=CHR$(13)THENGI 51 1 

20180 IF6t="THEN6t=-8 * 

20181 IFG$=CHRt(0}THEN6l=- * 

20185 PRINTGt;:PRINTi4,5$; 

20190 IFI/40-INT(I/40K.0001THENPRINT*4,R$ 

20199 NEXT 

20200 PRINTCHRI(13)'(C/DN)CC/DN>ANOTHER RECORD?<Y/N)‘ 

20210 GETK$:IFK*= *■THEN20210 

20220 IFK$="Y-THEN20130 

20999 CL0SE3:CL0SE15:CL0SE4:END 

21000 INPUT#15,EN,EHt,ET,ES 
21010 IFEN<20THENRETURN 

21015 IFEN=50THENPRINTG*:PRINT#4,G4CHR*(13):CL0SE3:CL0SE15:CL0SE4: END 
21020 PRINTEN;EH*,ET:ES:CL0SE3:CL0SE15:CL0SE4:END 
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10630 RANDOM PRINT 

10 PRINT"(CLRJRANDOM FILEStC/DNJfC/DH>■s0PEN4,4 
15 INPUT-FILE NAME-jFFliPRINT-READ OR WRITE" 

20 BETK»:IFK$=**THEN20 

21 IFK$=-N-THEN60SUB100 

22 IFKI=’R’THEN60SUB400 

23 END 

99 REN mi TO WRITE RANDOM FILE till 

100 0PEN15,8,15,*I-:MI=CHRI(44) 

110 0PEN10,8,10,*»- 

120 0PEN5,8,5,*8:-+FF$+*,S,N*:N=1:G0SUB9900 
200 NI=STR$(N);INPUT*IC/DNHC/DN}DATA |-;D4 
210 PRINT«10,N«H$D$ 

220 G0SUB8000 

230 PRINT’TRACK-'T,“SECTOR-'S 
240 PRINTI5,N;N$;T;H$;S 
250 PRINTI15,‘B-N:-10;0;T;S 

260 PRINT-ANOTHER(Y/N) 

261 GETKI: IFKt=’"TH£N261 

262 IFK«=-Y-THENN=N+1:G0TQ200 

263 IFKIO-N-THEN261 

270 CLOSES:CL0SE10:CLOSE15 
299 RETURN 

399 REN ttlt TO READ RANDOM FILE till 

400 0PEN15,8,15,"I*:CI=CHRI(13) 

410 0PEN10,8,10,-i* 

420 0PEN5,8,5,FF*+-,S,R-:60SUB9900 

430 PRINT-NHICH RECORD TO READ?":INPUTRN:PRINTC»- I*, 1 TV SVIC/LFMC/LFTSTATUS’CI 
435 PRINTI4,‘ N 1 ,* T*,- S',’ ST- 
440 INPUTI5,N,T,SsPRINTN,T f S,ST:X=ST 
445 PRINT*4,N,T,S,1( 

450 IFST< >OTHENPRINT■LAST RECORD IN FILE- 
455 IFST<>OTHENPRINT#4,*LAST RECORD IN FILE- 
460 IFN< >RNANDST=0THEN60T0440 
465 IFN=RNTHEN500 

470 PRINT-RECORD NOT FOUND’:60T0540 
475 PRINTI4,-RECORD NOT FOUND- 
500 PRINT-I-N- TRACK-'T- SECTOR'S 
505 PRINT#4,-#-N- TRACK-’T* SECTOR’S 
510 PRINTI15,"B-R:’10;0;T;S 
520 INPUT#10,NI,DI 
530 PRINTCI'l'NICtDI 
535 PR1NTI4,Cl'i"NICIDICICICI 

540 CL0SE5:PRINT 1 (C/DN)IC/DN1READ ANOTHER(Y/N)’ 

541 GETKI: IFKI="THEN541 

542 IFKI=-N-THENCL0SE10:CL0SE15:RETURN 

543 IFKIO-Y-THEN541 
550 60T0420 

8000 REMIttltlBLOCK ALLOCATEttttlttt 
8010 T=1:S=1 

8020 PRINT«15,-B-A:-0,T,S 
8030 INPUTtl5,EN,EMI,ET,ES 
8040 IFEN=65THENT=ET:S=ES:60T08020 
8050 RETURN 

(Continued) 
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10630 (Cont'd) 


8900 END 

8998 REHtmttGET SEQ FILEttttttt 

8999 REHIt RUN 9000 It 

9000 0PEN5,8,5,'RND SAHPLE,S,R* 

9010 6ETI5,6»:PR1NT6»; 

9020 IFST=64THENCL0SE5:END 
9030 60T09010 

9900 RENIIIREAD ERROR CHANNELtttt 
9910 INPUT«15,EN,EHI,ET,ES 
9920 IFEN<20THENRETURN 
9925 IFEN<20THENRETURN 

9930 PRINTEN;EH*,ET,ES:CL0SE5:CL0SE10:CL0SE15:END 
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10700 SYMBOL LIST (Not including “normal" usage.) 


SYMBOL 

MEANING 

EXAMPLE 

* 

multiplication 

C=A*B 

t 

open file marker 

• mm ^SfEQ 

* 

pattern match symbol 

LOAD"*",8 

/ 

division 

X=Y/256 

/ 

«Wedge» LOAD norma! 

/PROGRAM 

* 

hexadecimal numbers 

*FF 

% 

string variable 


* 

string command 

CHR$ ( ) e-Tc, 

* 

name of directory 

LOAD"*",8 

> 

greater than 

IFA>1THEN . . 

> 

«Wedge» substitute for @ 

>* 

7 

abbreviation for PRINT 

?"ABC" 

7 

wild card symbol 

LOAD"A?C",8 

•/. 

integer variable type 

'/.PROGRAM 

*/. 

«Wedge» LOAD special memory 

N% 

4- 

«Wedge» SAVE 

: PROGRAM 

# 

abbreviation for “number” 
assembly language 

#79 

# 

name of all random files 

OPEN 10,8,10,"#" 

# 

peripheral device signal 
for PRINT, INPUT, GET 

PRINT#3, 

@ 

«Wedge» command signal 

©I 


replace option signal 

SAVE"0:PROGRAM,8" 
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10900 INDEX 
A 

activate wedge 

1230,6215,6230 
adaptations 7270 
algorithm (see relative, record) 
allocate blocks 
4431 

(see BLOCK-) 

ASC or ASCII 

5?33,5411,6231,6347,6458,8500 


B 

CB- 3 (see BLOCK-) 
backup 

3320,3330,3350 

BAH 

0252,0271,2113,3110,3230,4431 
4132,6349,6458,8120 
bit 0236 
blank disk 

0250,2000,2103,2112,3122 

block 

0234,0235,0240,0261,0271,1113-1114 
6347,6455,7122,8110,8120,8500 
BLOCK- 

ALLOCATE 8122,8340 
FREE 8123 
READ 8124,8330 
WRITE 8125,8320 
BUFFER-POINTER 
8126,8320 

byte 

0236,0271,5344,6235,6347,6349, 

7122 


C 

CC3 (see copy) 
capacity see storage 

carridge return (see separator; chr$(13) 

Cch] (see channel number) 

channel 

5203,5204 

command 4130,5312,7110,7300, 

8320,8330 

data 5312,5333,6141,6232,7141,7313 

7334,8120,8320,8330 
DOS 5312,6322,6347,6452 
number 2313,4120 
(see OPEN; secondary address; 
error) 


checklists 

operation 0310,0410,0510,0610,0710 
procedure 1010,2010,3010 

CHR* 

(xx) 7140,7313 
(0) 8500 

(13) 5400,6231,6235,6263,7300 
(32) 6347,850 
(34) 6347 

(44) 6231,6263,8320 
(127) 8500 
(255) 7336 

CLOSE 

5320 

data file 5201,6140,6232,6234,6253 

6342,7110,8127,8320,8330 
(misc) 2213,2327,4121,4122,4130 
4336,9234 

colon <:) 

6266 

combine files see COPY 
"COMBO ?" 6300 
comma(,) 

5442,6231,6234,6264 
command channel 

4120,4130,5312,6231,6233 
"COMMAND DEMO" 6300 
COMMANDS 4000 
command 

formats 1400,2400,3400,4120,4220 
4320,4420,4520,4620,4720,4820 
procedures 4120,4130 
string 4120,5312,5333 
(see GET#; INPUT#; OPEN; PRINT#; 
random; relative; sequential) 
connections 

0314-0319 
COPY,simple 4700 
COPY to append 
4800 

6155,6325,6344 

crunch 

6230,6231,6340 


D 

data channel (see channel) 

DATA FILES 5000 
data files 

command format (refer by type) 
common procedures 5200 
data format 5400,6260 
(see also numeric; string; 
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10900 (Confd) 


density 0284 
device number 

0150,1222,1400,2312,2344,2400 
3233,3400,4120,4134,5212,6231 
direct mode 

4120,5344,6148 

direction 

6120,6130,6232,6234 

directory 

0082,0260-0264,1113,1210,1250, 
2113,3110,3220,3350,4210,6322, 
6324,6347-6349,6400,7131 

disk 

0200 

anatomy 0210-0230 
capacity see storage 
care of 0290 
insert 0500,9610 
remove 0600,9010,9615 
(see blank ;format; ID; name) 
[dr] (see drive number) 
drive 

0100 

care of 0110 
dual 0150 
error see error 
ready 0143 

number 0150,3360,4120,4834,8120 
8320 

door 0512 
setup 0300 

maintainance 0110,9640 
problems 9630,9640 
operating system see DOS 
quiet 0140,9410 
working 0144,9420 
double 

density 0284 
sided 0285 

DOS 0101,0103,0262,7120 

DOS 2.6 4120 (see COMMANDS;DOS) 

DOS 5.1 (see wedge) 

Cdv] (see device number) 

E 

edit (see relative; sequential) 
envelope,disk 

0210,0292,0500,0600 
erase directory 4200 
erase disk (see FORMAT,NEW) 
erase file (see SCRATCH) 


error 

channel 5203,6141,6236,6250,6342, 
6346,7338,9100,9200 
(see command channel) 
condition 0145,4131,6140,9410 
message 6236,6253,6324,6342,9103 
9212,9232,9250,9500 
number 6236,9232,9500 
track/lector location 6236,9232 
9253 

(see FLASHING RED LIGHT) 
essential procedures 
1200 

explanations, program 

6230,6340,6420,7300,8300, 8500,9230 
"EX RANDOM" 8500 
"EXF'$-PRINT" 6400 

F 

field 

7100 

file 

(see data, sequential, relative, 
random) 

"FILE ?" 6300 

file name 

0264,6140,7140 
file numbeh 

2311,2344,4120,5312,5320,5333 
5342,6231-6236 
file type 

0261,0272-0273, 6120,6347,6349 

6453,7141,7313 

(see types of) 

(first)"1ST SEQ FILE PGM" 

6200 

flag 

6232-6235,6260,7336 
FLASHING RED LIGHT 9000 
causes 6250, 9500 
emergency 9001-9005 
immediate mode 9300 
panic abort 9400 
problems 9600 
program method 9200 
remedies 9500 

mi sc 1117-1118, 1225, 1234,1247,1258 
2101,3110,3122,3123,3232,6250,8500 
(see error; wedge;) 
floppy development 0250 
(see disk) 

Cfn] (see file number) 
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10900 (Confd) 

"Friendly Floppy" 

0082,0210,1122,1349,2123,2205, 
6215,8200 
FORMAT 2000 
format of 

disk 0233,0271 
general 1400,2400,3400, 
text 0050 

file data 5201,5400 
(see COMMAND? GET#; INPUT#; 
OPEN; PRINT#; random; relative; 
sequential) 
format (to) 

how to 2210 
process 0262,2110 
format type 0261-0262,0271 
formatted disk 0250,1122,3122 


G 

"GEN REL" 

7200,7300 

(see adaptations; relative; 
job; subroutines; variable list) 
GET# 5340 

data files 6110,7110,8110 
(misc) 5201,6142 
samples 6235,6347,7336 
"GR SAMPLE" 7240 


H 

hard disk 0281 
..hard sector 0283 
header,directory 

0261,0271,6347,6349,6450 
heads 0251,9640 
headslot 0220 

hi (high byte)(see low byte) 
"HOLD" 6300 


I 

Cl] (see INITIALIZE) 

ID code 

0081,0225,0252,0261-0262,2113 
2113,2123,4231,4331,6341,6347 
INITIALIZE 4300 

6234,6323,6341,8320,8330,9104, 9303 
index hole 0223 
INPUT# 5340 

data file 5400,6110,7110,8110 
(misc) 5201,6142,9232 
samp1es 6234,6236 


J 

jacket,disk 

0210,0291,0500,0600 

job 

menu 6231,7314 
descriptions 7220 
selection 7315,7316 


K 


L 

CL] 7141 
label 

0225,0226,0292 

length (see random; record; relative; 
sequential) 

light,green (see power) 

0120,0130,0293 
light,red (see flashing) 

0120,0130,0293,1100,9400 
listing 

backup 3340 

program 6220,6330,6430,7400,8400, 
8500 

lo (low byte) 

7143,7144,7334,7335 
LOAD 1000 

type,ndrmal 1262 


M 

menu (see job) 
messages 

load 1110 
verify 3310 
save 3110,3242 
scratch 4531 

(see command string; error; 
random; relative) 


N 

CN] (see NEW ) 
name 

disk 0261,0262,2122,4220 
find 1360 
file 0261,6140 

program 0261,0264,1123,1220,3125, 
3210, 

NEW 2000,4200 

2216,2230,2320 
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10900 (Cont’d) 

noises 

0130,0140,0293,1113,2215,9630 
normal memory 

1262,3210,3233 

number (see channel; device; drive, 
error; file; record) 
numeric data 5450,6261 


O 

objectives 

program 6210,6310,6410,7210,8210 
text 0040 

OPEN 5310 

data files 5201 

experiments 2330 

function of 5313 

random file 8121,8320,8330,8500 

relative file 7110,7141,7142,7313 

sequential file 6100,6232,6234 

use of 2212,2310,4130,6251 

(see COMMANDS;) 

"OPEN EXP" 2331 


P 

CP3 (see relative,position) 
pattern matching 1340,4532 
position (see BUFFER; relative,) 
power 

light 0120,0130 
off 0293,0700 
on 0293,0400 
practice disk 6322 
program 

flow 7302 

loss,alternatives 1370,9234 
mode 4120 

(see explainations; file type; 
listing; name; objectives; sample; 
user instructions) 

"PROGRAM NAME" 1220 
program notes 0090 
PRINT# 5330 

data file 5201,5400,6140,6260,7110 
function 5333 
experiments with 2340 
position (see relative) 
punctuation 4132,5440 
use of 2216,2320 
(see printer; COMMANDS; BLOCK-) 
printer 

0020,0300,0700,1374,3340,5312,6422 
punctuation (see format, data file; 

PRINT#; separator) 


Q 

quick load 1310,1320 
quit wedge 1251 


R 

CR1 (see direction; sequential,read; 
RENAME) 

RANDOM files 8000,5120 
advantages 5123 
disadvantages 5124 
error messages 8122,8340 
length 5122 
nature 5121 
overview 8110 
read 8124,8128,8222,8330 
sequential 8211,8220,8320,8330 
validate 4431,8123 
write 8125,8129,8224,8320,8340 
(see BLOCK-; BUFFER; track) 

"RANDOM FILES" 8100 

read (see error; GET#; INPUT#; OPEN; 

sequential; relative; random) 
record (see relative) 
red light (see light; flashing; drive, 
working) 

RELATIVE files 7000,5130 
adaptations 7270 
advantages 5133 

create 7141,7151,7221,7251,7321 

disadvantages 5134 

edit 7227,7257,7327 

error messages 7150 

examine 7249,7340 

expand 7152,7222,7252,7322 

field 7100,7133,7261,7273 

file format 7242,7270,7311 

length 5132 

nature 5131 

position 7110,7143,7260,7334,7341 
read 7110,7225,7226,7245-7248 
7325,7326,7333 
record 7100,7120,7130 
record length 7131,7261,7273,7313 
record number 7132,7264,7273,7335 
record structure 7260,7270,7311 
side sector 0273,7120 
write 7110,7153,7223,7224,7253 
7254,7323,7324,7332 
(see "GEN REL"; program flow; 
SCRATCH; secondary program; 

RENAME 4600 

6155,6326,6345 
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10900 (Cont’d) 

replace option 

problems with 3350,6155,8320 
save with 3230, 
sequential -files 6150 
"RND SAMPLE" 

8200 

RUN/STOP 

6253 

S 

S (see file type; sequential; SCRATCH) 
sample programs 

6200,6300,6400,7200,7300,8200,8500 
SAVE 3000 
SCRATCH 4500 

3350,6150,6233,6326-6329,6346,7280 
secondary address 

1262,1400,3220,3233,3400 
(see channel number) 
secondary program 

7249,7301,7340,8223 
(see randon; relative,examine) 
sector 

0232-0233,0235,0240,0270,0283 
1113,1114,2113,7120,8110,8120 
8320-8340,8500,9250 
semicolon(;) 5441,6265 
separator, data 

5344,5400,6231,6234,6262-6266 
7260 

"SEQ FILE # PGM" 6260 
SEQUENTIAL files 6000,5110 
advantages 5113 
disadvantages 5114 
edit 6150 
length 5112 
overview 6110 
nature 5111 

read 6130,6140,6234,6252,6343 
using 6240,6250,6324 
write 6120,6140,6150,6232,6251 
6253,6342 

(see OPEN; GET#; INPUT#; 

PRINT#; format; random) 
set up 0300 
single 

density 0284 
drive 0150 
sided disk 0285 
size, disk 0282 
slick tricks 1300 


soft sectored 0283 
spanning 7264 
special memory 

load 1262,1400 
save 3220,3233,3400 
ST (see STATUS) 

STATUS 

6344,6347,8330,8500 

storage 

capacity 0240,2206,3123 

(see relative,record number; 
record length) 
of disks 0294 
string data 6261 

(see variable; command; message) 
subroutines 

7302,7330,8340-8360 
system 0020 

(see setup) 

T 

tape backup 3330 
"TEST 1" 6240,6250 
track 

0231,0233,0240,1113-1114,2113 
8110,8120,8320-8340,8500,9250 
track 18 

0261,0270,6349,6458, 9253 
types of files 5100 
(see file type) 


U 

U1 (or UA) (see USER1) 

U2 (or UB) (see USER2) 

UI 9004,9302 
unclosed file mark 
0261,4434 
user instructions 

program 6215,6240,6320,7230,7240 
8220,9240 
text 0010-0090 
USER 1 (or USER A) 

8128,8500 
USER 2 (or USER B) 

8129 


V 

m (see VALIDATE) 
VALIDATE 4400,8123 
(see random) 
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10900 (Cont’d) 


variable 

file name 6232 
"GEN REL" list 7301 
lists 5343 

numeric 5344,5450,6261 
program names 1350 
string 5344,5400,6232,6261 
VERIFY 3300,3404 
view directory 

1250,3122,6250,6322,6347 


W 

EW] (see direction; sequential,write) 

wait routine 7337 

wedge 

activate 1230,9621,9622 
check 9102 
deactivate 1251 
problems 9620 

read error channel 9100,9254 
use of 1240,2233,3240,4120,4433 
6215,6250,6322 
(see COMMANDS; error) 
wild cards 1330,4532,6322 
write protect notch 0081,0221,3110 
write (see PRINT#; random; relative; 
sequential) 


X 

Y 


Z 

zero (0) 0000 

(see drive number) 




w 


'w 
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By NANCY L. WILMOT 


★ Sample Programs 

★ Sample Files 

★ Tutorials 

★ Check Lists 

★ .. .and a lot more! 

Disk Included 


DISK DRIVE GUIDE assumes no prior knowledge of disks, drives or disk drive “jargon,” (DOS, BAM, 


!f you have no desire to program, you’ll be more cpmfortable running yoursoftware if you can commun¬ 
icate directly with your drive. You’ll gain knowledge and experience playing with the sample programs. 
There is even a sample RELATIVE file program you can adapt to your own needs without being able 
to program. 


If you have a little knowledge of BASIC and want to write, (or simply better understand), file manage¬ 
ment programs, you’ll find detailed treatments of SEQUENTIAL, RELATIVE and RANDOM files. File 
operations in the sample programs are explained, line-by-line. 

“Friendly Floppy,” the disk included, contains the sample programs and files. You won’t have to waste 
hours and hours typing and de-bugging. 

If you want to learn to write machine language routines, program the controller, or repairyour equip¬ 
ment, lookfor another source. (Sorry, but I don’t want to waste your time or money). Iryou are looking 
for a stiff, formal, technical approach you won’t find it here. I only use that style when absolutely ne¬ 
cessary and even then I can’t maintain it for long. I do not subscribe to the philosophy that solid learning 
can’t be fun. 


If you must have a promise of all about, easy, complete or any of the other expletives, I can’t give it 

to you All I can promise is that there is a lot of material here for all but the advanced data file program¬ 
mer. Many topics are easy, some are not, and all become easier once you know how. 











Disk included... Sample programs...Sample files... Illustrations... Charts... Tutorials... References 
...Check lists...Definitions...Examples...Flashing Red Light...User instructions...Programsin 
BASIC and completely accessible for useralterations...Program listings... Errorconditions as tools 
... Howto... Why to... When to... What not to... Extensive cross references... Detailed Index... Care 
and feeding of disks and the drive... Handy forms for keeping track of your hardware, software and 
costs... 


SUPPORTS: 

C-64'", 1541", SX-64"" and MSD-SD1", MSD-SD2"’... 

Printer Optional... 

VIC-20'“ and 1 540™/1541" user’s please note: The methods of this text apply. Some programs may 
exceed memory capacity and some screen displays may need alterations. 


PUBLISHED BY CON-COR INTERNATIONAL. 1025 INDUSTRIAL DRIVE. BENSENVILLE, IL 60106-1 297 
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